Macro Covering Many Columns, why has to be UNION

[Lor]

I am not understanding why this must be a UNION vs just a list of the
columns I want to change the format to make "Currency"

Why can't I just list the columns ~ if is due to limitation of # of
columns, then does anyone know how many columns can be listed.


Union(Range( _

"CG:CG,CI:CI,CK:CK,CM:CM,CO:CO,CQ:CQ,CS:CS,CU:CU,CW:CW,CY:CY,DAA,DCC,DEE,DGG,DII,DKK,DMM,DOO,DQQ,DSS,DUU,DWW,DYY,J:O,W:W,Y:Y,AA:AA,AC:AC,AE:AE,AG:AG,AI:AI,AK:AK"
_
), Range( _

"AM:AM,AO:AO,AQ:AQ,AS:AS,AU:AU,AW:AW,AY:AY,BA:BA,BC:BC,BE:BE,BG:BG,BI:BI,BK:BK,BM:BM,BO:BO,BQ:BQ,BS:BS,BU:BU,BW:BW,BY:BY,CA:CA,CC:CC,CE:CE"
_
)).Select
Union(Range( _

"CG:CG,CI:CI,CK:CK,CM:CM,CO:CO,CQ:CQ,CS:CS,CU:CU,CW:CW,CY:CY,DAA,DCC,DEE,DGG,DII,DKK,DMM,DOO,DQQ,DSS,DUU,DWW,DYY,EA:EA,EC:EC,EE:EE,EG:EG,EI:EI,EK:EK,EM:EM,EO:EO,EQ:EQ"
_
), Range( _

"ES:ES,EU:EU,J:O,W:W,Y:Y,AA:AA,AC:AC,AE:AE,AG:AG,AI:AI,AK:AK,AM:AM,AO:AO,AQ:AQ,AS:AS,AU:AU,AW:AW,AY:AY,BA:BA,BC:BC,BE:BE,BG:BG,BI:BI,BK:BK,BM:BM,BO:BO,BQ:BQ,BS:BS,BU:BU,BW:BW,BY:BY,CA:CA"
_
), Range("CC:CC,CE:CE")).Select
Selection.NumberFormat = "$#,##0"

 

[Dana DeLouis]

I am not understanding why this must be a UNION vs just a list of the

columns I want to change the format to make "Currency"

Hi. I can't tell because if works fine with Excel 2007.
There may be a limit of 30 arguments in earlier versions, although I am
not sure of that.

Would this general idea work?

Sub Demo()
Dim C As Long '(C)olumn
Dim s, e 'Start & End
Const fm As String = "$#,##0"

[J:O].NumberFormat = fm
With [WY]
s = .Columns(1).Column
e = s + .Columns.Count - 1
End With

For C = s To e Step 2
Columns(C).NumberFormat = fm
Next C
End Sub

= = =
HTH
Dana DeLouis