Hiding and unhiding columns

[rss]

Hi.

I have a spreadsheet that is laid out with 4 columns that repeat 50
times. So a total of 200 columns. I need a macro that will hide 3
columns and then move over. That way every time I hit CTRL-H 3 columns
are hidden. If I hit Ctrl-h 50 times I would have only 1 column
repeated 50 times. For my actual spread sheet the columns I want to
hide are contiguous but it would be nice to have a more general macro
that lets you select the number of columns that are repeated and which
ones you want to hide each time you hit the macro.

Of course an antidote to this where we unhide what we've done would be
needed too. Thanks for your help.

When I recorded my macro here's what I got:

Sub hide3()
'
' hide3 Macro
' Macro recorded 6/22/2005 by rss
'
' Keyboard Shortcut: Ctrl+h
'
Columns("E:G").Select
Range("E23").Activate
Selection.EntireColumn.Hidden = True
Columns("I:K").Select
Range("I23").Activate
Selection.EntireColumn.Hidden = True
End Sub

The problem is it is not picking up the movement that I need as well as
not addressing the more general issues with this type of macro.

Thanks again.
Edit/Delete Message

 

[Tom Ogilvy]

numcol = 3
totcol = 4
columns.Hidden = False
for i = 5 to totcol + 50*totcol step totcol
cells(1,i).Resize(1,numcol).EntireColumn.Hidden = True
Next

Might be something you could work with.