Macro closes all coluns and not just the programmed ones, why?

[sonar]

Hi

I have the macro as follows:

Sub hide()
'
' hide Macro
' Macro recorded 2004/05/02 by
'
' Keyboard Shortcut: Ctrl+h
'
Columns("M:O").Select
Selection.EntireColumn.Hidden = True
Columns("X:Z").Select
Selection.EntireColumn.Hidden = True
Columns("AI:AK").Select
Selection.EntireColumn.Hidden = True
Columns("AT:AV").Select
Selection.EntireColumn.Hidden = True
Columns("BE:BG").Select
Selection.EntireColumn.Hidden = True
Columns("BP:BR").Select
Selection.EntireColumn.Hidden = True
Columns("CA:CC").Select
Selection.EntireColumn.Hidden = True
Columns("CF:CF").Select
Selection.EntireColumn.Hidden = True
Columns("CM:CM").Select
Selection.EntireColumn.Hidden = True
Columns("CR:CR").Select
Selection.EntireColumn.Hidden = True

End Sub


Everytime I play the macro, it hides everything, need help to sort i
out, as I want it to unhide and hide these columns for view an
printing purposes, well, to fit on page.

I am including a zip file for anyone to see.

my email address is:
(e-mail address removed)

Thank

Attachment filename: mastertimesheet6d.zip
Download attachment: http://www.excelforum.com/attachment.php?postid=53153

 

[Dave Peterson]

It's better to stay in the original thead so that anyone who wants to help will
know what's been tried.

I tried J.E.'s code and it worked for me.

You may have introduced some extra characters or chopped something when you
copied from the news post.

 

[sonar]

Hi, I am using Excell 2000, would that work on that version

 

[Tom Ogilvy]

It should work in all versions with VBA (xl5 and later).

 

[Tom Ogilvy]

Perhaps try copying this alteration of JE's code:

Public Sub Hide()
Range("M:O,X:Z,AI:AK,AT:AV," & _
"BE:BG,BP:BR,CA:CC," & _
"CF:CF,CM:CM,CR:CR") _
.EntireColumn.Hidden = True
End Sub

Paste that in a general module, not a module associated with the worksheet,
then try running it.

It worked fine for me.

--
Regards,
tom Ogilvy

It should work in all versions with VBA (xl5 and later).