Change columns cell format with VBA

[nikolaikolev]

Dear,
i use the following macro to change the cell format of a single column (AY), but i want to change the cells format in a few columns that are not next to each other (for example columns A, W, AA, BW)
How can I do that ?

With Sheet1.Range("AY8", "AY10000")
.NumberFormat = "$#,##0.00"
.Value = .Value
End With

 

[Fluff]

Do you have formulae in those columns that need converting to values, or do you just want to change the number format?

 

[KevCarter]

Something like this. I added the numbers so we could check the formatting...

Sub MultiRange()

    With Sheet1.Range("A1:A10, D1:D5,G5:G7")
        .Value = 10
        .NumberFormat = ("$#,##0.00")
    End With

End Sub

 

[nikolaikolev]

in those columns

Do you have formulae in those columns that need converting to values

I have numbers formated as text

 

[Fluff]

In that case you will need to convert those numbers into proper numbers, for the format to work. Are you happy with that?