Hiding and unhiding columns

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

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.

--
Regards,
Tom Ogilvy


"rss" <rss.1r16v1_1119449175.3517@excelforum-nospam.com> wrote in message
news:rss.1r16v1_1119449175.3517@excelforum-nospam.com...
>
> 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
>
>
> --
> rss
> ------------------------------------------------------------------------
> rss's Profile:
http://www.excelforum.com/member.php...o&userid=24524
> View this thread: http://www.excelforum.com/showthread...hreadid=381214
>