Sub Macro1()
Dim r As Range
Set r = Selection
If Not (Application.IsText(r)) Then
MsgBox ("selection is not text")
End If
End Sub
--
Gary's Student


"John" wrote:

How can I pull up a message box if the active cell is not formated as text?
IF activecell.format < text then... ???
Thanks!