Do Until Loop Not Working

G

Guest

Sub HideRow()

Range("B15").Select

Do Until ActiveCell = "STOP"
If ActiveCell.Value = 0 Then
ActiveCell.EntireRow.Hidden = True
ActiveCell.Offset(1, 0).Select
Else
ActiveCell.Offset(1, 0).Select
Loop

End Sub
 
G

Guest

Sub HideRow()

Range("B15").Select

Do Until ActiveCell = "STOP"
If ActiveCell.Value = 0 Then
ActiveCell.EntireRow.Hidden = True
ActiveCell.Offset(1, 0).Select
Else
ActiveCell.Offset(1, 0).Select
End if
Loop

End Sub
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

Do Until Loop Not Working 3
Run Time Error "13": Type mismatch 6
Entering data from a userform into multiple sheets 2
Inserting 2 columns when cells don't match 6
Combobox will not show list 4
Do Until or For Loop 3
Excel UserForm issues: Textboxes cannot be blank 1
Need help-For loop 3

Top