Thank you for your code example; it was very helpfull. How would I
manipulate the code to unhide 2 rows instead of one.

Here is a reference to the example code:

Sub Managecolumns()
Dim i As Long
For i = 1 To 52
If Columns(i).Hidden = False Then
bfirst = True
Columns(i).Hidden = True
Columns(i + 4).Hidden = False
Exit For
End If
Next
End Sub

Thank you for your help,

Kirby

*** Sent via Devdex http://www.devdex.com ***
Don't just participate in USENET...get rewarded for it!