expression.NumberAsText
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 A1, which contains a number stored as text.
Sub CheckNumberAsText()
' Simulate an error by referencing a number stored as text.
Application.ErrorCheckingOptions.NumberAsText = True
Range("A1").Value = "'1"
End Sub