Do Until Loop Not Working
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
--
Regards,
Tom Ogilvy
"PJFry" wrote:
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
|