In a macro, I insert a formula into a column and copy down to the bottom of
the range. The formula is basically "IF there's an error, THEN insert this,
ELSE "" ". I'm trying to detect if the column was empty - ie: the formula
returns "" - but it's not working. I guess what I'm using is detecting a
formula in the cell, so it's not empty? Any suggestions are welcome.

Here's what I've got:

' If there are no TIRs without naratives
If Application.CountA(Range("AM2:AM12000")) = 0 Then

' Run this macro
InsertNarrLinks

Else
' Toggles on AutoFilter
Range("AM1").Select
Selection.AutoFilter

End If


Ed

try
If [am2:am12000].HasFormula = False Then

"Ed" wrote in message
...
In a macro, I insert a formula into a column and copy down to the bottom
of
the range. The formula is basically "IF there's an error, THEN insert
this,
ELSE "" ". I'm trying to detect if the column was empty - ie: the formula
returns "" - but it's not working. I guess what I'm using is detecting a
formula in the cell, so it's not empty? Any suggestions are welcome.

Here's what I've got:

' If there are no TIRs without naratives
If Application.CountA(Range("AM2:AM12000")) = 0 Then

' Run this macro
InsertNarrLinks

Else
' Toggles on AutoFilter
Range("AM1").Select
Selection.AutoFilter

End If


Ed