Hiding and showing columns in one operation

[jh9940]

Hi

I'd like to open up a range of columns but then hide certain columns within the same range within one operation. This is my current formula but it says mismatch:

Sub CloseAR1KS3()
Columns("X:GU").Hidden = False
Columns("C:D,Y:Z,AD:AO,AQ:AW,AY:BK,BM:BS,BU:BW,BY:CA,CC:CE,CG:CQ,CS:CU,CW:DC,DE:DK,DM:DO,DQ:DW,DY:GU").Hidden = True
Activate.EntireColumn.Hidden = True
End Sub

It's for learner grades which are entered three times a year - so I will eventually have three separate macros that will only show certain columns
Many thanks in advance

 

[saboh12617]

Hello,
I think it is the last row "Activate.EntireColumn.Hidden = True" that poses problem. It is incorrect, activate is nothing ?
If you want to refer to the selected cell, change this row to

Selection.EntireColumn.Hidden = True

 

[NoSparks]

For non-contiguous columns try using Range

Sub CloseAR1KS3()
Columns("X:GU").Hidden = False
Range("C:D,Y:Z,AD:AO,AQ:AW,AY:BK,BM:BS,BU:BW,BY:CA,CC:CE,CG:CQ,CS:CU,CW:DC,DE:DK,DM:DO,DQ:DW,DY:GU").EntireColumn.Hidden = True
End Sub

 

[jh9940]

Thank you so much