Run-time error 424

[TheWildAfrican]

Dear All:

I get the referenced error "Run-time error 424" every time my code gets to the line below:

Code:

If (ActiveCell.Offset(i, 5).Value = "FX Fee") And (Active.Offset(i, 0).Value = ActiveCell.Offset(i - 1, 0)) Then
ActiveCell.Offset(i, 4).Value = ActiveCell.Offset(i, 3).Value - ActiveCell.Offset(i - 1, 3).Value
Else
ActiveCell.Offset(i, 4).Value = ActiveCell.Offset(i - 1, 4).Value
End If


I researched "error 424" on Microsoft site without any luck.

Any help or advice would be greatly appreciated.

Danke,

TWA

 

[sunny102]

Can you please share your complete code?

I'm online and able to respond in real time to you until it's solved.

 

[ukmikeb]

Perhaps changing this section :-

[COLOR=#333333]Active.Offset(i, 0).Value[/COLOR]

to :-

[COLOR=#333333]ActiveCell.Offset(i, 0).Value[/COLOR]

hth

 

[TheWildAfrican]

Dear Mikeb,

Thanks man!! I've been looking at it for 3 hours.....I couldn't believe I didn't complete typing "ActiveCell"....Thanks for pointing this error to me....

PEACE!!

TWA

 

[TheWildAfrican]

Hi sunny102,

Thanks for your response....the code works now...I had a function misspelled....

Best,

TWA