Hi All,
I was hoping someone might have a quicker way of looping through a range?
I use the following to loop through the cell value in D1:D251. If the value in the cell is greater than zero it does nothing, if less it hides the row and moves on to the next.
Only problem is that it take yonks to loop through.......aggghhh people are way to impatient to wait 50 or 60 seconds.
Suggestions?
Range("D1:D251").Select
Selection.EntireRow.Hidden = False
Application.ScreenUpdating = True
Range("D2").Select
Do While Counter < 251
Counter = Counter + 1
If ActiveCell.value > 0 Then
ActiveCell.Offset(1, 0).Activate
Else
Selection.EntireRow.Hidden = True
ActiveCell.Offset(1, 0).Activate
End If
Loop
BTW: XL97 WIN98.
Thanks
AJW