Text Sub

[Guest]

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.

 

[Tom Ogilvy]

Sub Main
if Worksheets("Sheet1").Range("A1").Value <> "" then
routineA
else
routineB
end if
End Sub

this runs routineA if A1 is not empty. If you want to check for a specific
value replace with

if Worksheets("Sheet1").Range("A1").Value = "ABCD" then

 

[Guest]

Tom, as always... thanks alot for your help.

Regards,
Ronbo

 

[Guest]

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

End Sub