Sub Test1()
If Application.WorksheetFunction.IsText(Range("A1")) Then
MsgBox "It's text type"
routine A
Else
routine B
End If

End Sub

"Ronbo" wrote:

I need help creating a sub that checks "A1" to see if it has text in the
cell, and if so run routine A Else routine B.

Any help is always appreciated.