VB Formula error in macro, How to Continue?

Ok. I have a formula filling down a column and I want to replace the formula if the initial formula errors (#VALUE) with an If statement?

If ActiveCell = "#VALUE" Then
ActiveCell.FormulaR1C1 = "=(RC[-16])"

Obviously it doesn't work like that. Inserting If(iserror( exceeds 7 IF(s). How do I replace a formula error to continue with a correct value using an alternate formula other than writing more code to look for these errors later?

Any help will be appreciated and valued. Thank you in advance.

Mikeco

Please Login or Register  to view this content.

Please edit your post to add code tags.

Well, I can't stop thinking about it so I added maybe 5 or more extra lines to solve this and move forward.

ActiveCell.FormulaR1C1 = "=IF(ISERROR(RC[-1]),1,0)"
If ActiveCell = 1 Then
Selection.ClearContents
ActiveCell.Offset(0, -1).Range("A1").Select
Selection.ClearContents
ActiveCell.FormulaR1C1 = "=RC[-16]"
End If
If ActiveCell = 0 Then
Selection.ClearContents
ActiveCell.Offset(0, -1).Range("A1").Select
End If
ActiveCell.Offset(1, 0).Range("A1").Select

If there was a better way, I'd still appreciate the tip and thank you.

Mike, please back up a little to describe what you're trying to do overall, rather than describing how to fix what doesn't work.

You got the message on code tags, thank you, Mike.

Glad you got it sorted out -- I don't feel like I contributed much. Onward and upward.