Dim oError
On Error Resume Next
Set oError = ActiveSheet.Cells.SpecialCells(xlCellTypeFormulas,
xlErrors)
If TypeName(oError) = "Empty" Then
Debug.Print "No Error"
Else
Debug.Print "Error"
End If
Err.Clear