expression.TextDate
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 text date with a two-digit year.
Sub CheckTextDate()
' Simulate an error by referencing a text date with a two-digit year.
Application.ErrorCheckingOptions.TextDate = True
Range("A1").Formula = "'April 23, 00"
End Sub