Testing Go Advanced from Quick Reply.


Line1


Line2

Sub HideShow()
Dim lCol As Long
Dim lRow As Long

lRow = Rows.Count
For lCol = 1 To Cells(1, Columns.Count).End(xlToLeft).Column Step 8
Range(Cells(1, lCol), _
Cells(lRow, lCol + 3)).EntireColumn.Hidden _
= Not Range(Cells(1, lCol), _
Cells(lRow, lCol + 3)).EntireColumn.Hidden
Next lCol
End Sub