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.
|