Text Sub
 

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.

Text Sub
 

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


--
Regards,
Tom Ogilvy


"Ronbo" wrote in message
...
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.

Text Sub
 

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

Regards,
Ronbo

"Tom Ogilvy" wrote:

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


--
Regards,
Tom Ogilvy


"Ronbo" wrote in message
...
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.

Text Sub
 

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.