Is there any way to make it faster? takes ages
otherwise its working PERFECT.
thanks

"Mike H" wrote in message
...
Hi,

Is this what you mean

Sub HURows()
Dim BeginRow As Long, EndRow As Long
Dim ChkCol As Long
BeginRow = 2
EndRow = 1197
ChkCol = 1
For RowCnt = BeginRow To EndRow
If Cells(RowCnt, ChkCol).Value < "hide" Then
Cells(RowCnt, ChkCol).EntireRow.Hidden = False
Else
Rows(RowCnt & ":" & EndRow).EntireRow.Hidden = True
Exit For
End If
Next RowCnt
Application.ScreenUpdating = True
End Sub

--
Mike

When competing hypotheses are otherwise equal, adopt the hypothesis that
introduces the fewest assumptions while still sufficiently answering the
question.


"EagerGit" wrote:

hi there
I using using this script to hide rows which working fine.
I would like add to it to hide Entire row PLUS every row below it upto
1197.
how can I achieve that??

Thanks in advance

Sub HURows()
BeginRow = 2
EndRow = 1197
ChkCol = 1

For RowCnt = BeginRow To EndRow
If Cells(RowCnt, ChkCol).Value = "hide" Then
Cells(RowCnt, ChkCol).EntireRow.Hidden = True
Else
Cells(RowCnt, ChkCol).EntireRow.Hidden = False
End If
Next RowCnt
End Sub



.