Go To Next Cell If is empty 1

[DIVINEDAR0956]

I need a procedure that will check and see if a cell has text in it and if so go down to the next cell. I am really having trouble using the For...Loop or the For...Next issue. Please help.

 

[BrainB]

There are other ways, but you did ask for a loop method.
'------------------------------------------------------
Sub test()
Dim ToRow As Long
ToRow = 1
'- loop
While ActiveSheet.Cells(ToRow, 1).Value <> &quot;&quot;
'put your code here to do something
ToRow = ToRow + 1
Wend
'- you are now at the blank cell
MsgBox (ActiveSheet.Cells(ToRow, 1).Address)
End Sub
'-----------------------------------------------
Regards
BrianB
================================

 

[DIVINEDAR0956]

Thank you BrianB very much for your assistance.