Richard, just to add a little to the mix, I modified the code abov
slightly to test your examples. "Result" is defined as a variant.

With ActiveSheet
Result = Range(Range("A1")
Range("A1").SpecialCells(xlCellTypeLastCell)).Spec ialCells(xlCellTypeFormulas
16).Select
If Result = True Then
MsgBox ("NASA, we have a problem!")
End If
End With

This works with a divide by zero error, but when I remove the divide b
zero error, I return to the run time error

--
DougVb
-----------------------------------------------------------------------
DougVba's Profile: http://www.excelforum.com/member.php...fo&userid=3300
View this thread: http://www.excelforum.com/showthread.php?threadid=52833