Prev: Userform Layout
Next: refresh listbox
From: joel on 16 Apr 2010 11:43

Try my code it was designed to run fasters. the code unhides
everything in one instruction and then hides everything in a second
instruction.


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

'unhide all rows
Rows(RowCnt & ":" & EndRow).Hidden = False
'find 1st occurance of hide and then hide all rows until end
For RowCnt = BeginRow To EndRow
If Cells(RowCnt, ChkCol).Value = "hide" Then
Rows(RowCnt & ":" & EndRow).Hidden = True
exit For
End If
Next RowCnt
End Sub
Yesterday 09:30 AM


--
joel
------------------------------------------------------------------------
joel's Profile: http://www.thecodecage.com/forumz/member.php?u=229
View this thread: http://www.thecodecage.com/forumz/showthread.php?t=195793

http://www.thecodecage.com/forumz

First  |  Prev  | 
Pages: 1 2
Prev: Userform Layout
Next: refresh listbox