Compile Error Loop without Do 1

[sazi22]

Why am I getting this error when I have "Do" in the code?


Sub Issue()
Range("A2").Select
Do While ActiveCell.Value <> ""
ActiveCell.Offset(1, 0).Select
If ActiveCell = "" Then
Selection.EntireRow.Hidden = True
Loop
End If
End Sub

 

[RoyVidar]

The sequence

[tt]Do While ActiveCell.Value <> ""
ActiveCell.Offset(1, 0).Select
If ActiveCell = "" Then
Selection.EntireRow.Hidden = True
End If
Loop[/tt]

Roy-Vidar

 

[xlbo]

Yup - any attempt to finish a loop (either DO, While or Next) within an IF or a WITH block will give this error. WITHS and IFS should be either entirely INSIDE or entirely OUTSIDE any loop

Rgds, Geoff

"Three things are certain: Death, taxes and lost data. Guess which has occurred"

Please read FAQ222-2244 before you ask a question