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