expression.EvaluateToError
expression Required. An expression that returns one of the objects in the Applies To list.
Example
In the following example, the AutoCorrect Options button appears for cell A3, which contains a divide-by-zero error.
Sub CheckEvaluationError()
' Simulate a divide-by-zero error.
Application.ErrorCheckingOptions.EvaluateToError = True
Range("A1").Value = 1
Range("A2").Value = 0
Range("A3").Formula = "=A1/A2"
End Sub