On 2002-04-05 14:47, Jay Petrulis wrote:
On 2002-04-05 14:05, jreeper wrote:
Sub hide_Alternates()
For x = 2 To 200 Step 2
Cells(x, 1).EntireRow.Hidden = True 'switch =False to unhide
Next
End Sub
Hi Jeff,
Here is an interesting way to switch back and forth, rather than your commented out section (=false)
------------------
Sub toggle_row_setting()
Application.ScreenUpdating = False
For x = 2 To 200 Step 2
Rows(x).Hidden = Not Rows(x).Hidden
Next
Application.ScreenUpdating = True
End Sub
--------------------
Same idea, less writing.
Regards,
Jay