Eric

Put this ijn the loop

If myCell.Text = "" Then Exit For

Mike

"Eric" wrote:

Does anyone have any suggestions on how to exit the loop if mycell.Text =""?
When myCell.Text is equal to "", the loop keeps going, but I would like to
exit the loop if myCell.Text is nothing or "".
Does anyone have any suggestions on how to code it?
Thanks in advance for any suggestions
Eric

Dim myRng As Range
Dim myCell As Range

For Each myCell In myRng.Cells
On Error Resume Next
Mywebsite = myCell.Text
On Error GoTo 0
' Perform task
Next myCell