Many thanks, Tom - that works wonderfully!

Dan
"Tom Ogilvy" wrote in message
...
Remove the Select statement - I believe it is the source of your problem.
Sub Hide_2wk_Macro3()

Range( _

"C:C,D:D,F:F,G:G,I:I,J:J,L:L,M:M,O:O,P:P,R:R,S:S,U :U,V:V,Z:Z,AA:AA,AD:AD &
,AC:AC,AF:AF,AG:AG,AI:AI,AJ:AJ,AL:AL,AM:AM,AO:AO,A P:AP,AR:AR,AS:AS" _
).EntireColumn.Hidden = True
Range("A5").Activate
End Sub

--
Regards,
Tom Ogilvy

"Dan E" wrote in message
...
I'm having trouble with a macro that is meant to hide selected columns in
a worksheet (see below). Not only does it hide the columns I want
hidden, but it also hides all columns between and to the left of the
selected range. Testing on a blank sheet I've verified that the problem
appears to be that I have title rows in the sheet, which use merged cells
in a row, basically covering the whole range of columns the macro
operates on, so that for example A7:AQ7 are merged into a single cell.
Could anyone suggest a way round it, please? I realize that I could
include in the macro actions that would unmerge the title cells before
running the hide part of the macro, then merge the title cells again, BUT
the title cells are many and vary in cell coverage, and it would require
a great deal of selecting. I feel that there must be a way round this,
but I have very little VBA knowledge. All suggestions and help VERY
gratefully received and acknowledged.

Macro:-
_______
Sub Hide_2wk_Macro3()

Range( _

"C:C,D:D,F:F,G:G,I:I,J:J,L:L,M:M,O:O,P:P,R:R,S:S,U :U,V:V,Z:Z,AA:AA,AD:AD,AC:AC,AF:AF,AG:AG,AI:AI,AJ: AJ,AL:AL,AM:AM,AO:AO,AP:AP,AR:AR,AS:AS"
_
).Select
Range("AS1").Activate
Selection.EntireColumn.Hidden = True
Range("A5").Activate
End Sub
_________
TIA

Dan E
--
Dan E