How to apply number format to multiple column using loop or best way?

[dmadhup]

I am applying number format to multiple columns using the following code. however, I would like to optimize it so that it runs faster.

Range("AC18").Resize(Cells(Rows.Count, "B").End(xlUp).Row - 17).NumberFormat = "$#,##0.000_);[Red]($#,##0.000)"
Range("AD18").Resize(Cells(Rows.Count, "B").End(xlUp).Row - 17).NumberFormat = "$#,##0.000_);[Red]($#,##0.000)"
Range("AF18").Resize(Cells(Rows.Count, "B").End(xlUp).Row - 17).NumberFormat = "$#,##0.000_);[Red]($#,##0.000)"
Range("AG18").Resize(Cells(Rows.Count, "B").End(xlUp).Row - 17).NumberFormat = "$#,##0.000_);[Red]($#,##0.000)"
Range("AI18").Resize(Cells(Rows.Count, "B").End(xlUp).Row - 17).NumberFormat = "$#,##0.000_);[Red]($#,##0.000)"
Range("AJ18").Resize(Cells(Rows.Count, "B").End(xlUp).Row - 17).NumberFormat = "$#,##0.000_);[Red]($#,##0.000)"
Range("AL18").Resize(Cells(Rows.Count, "B").End(xlUp).Row - 17).NumberFormat = "$#,##0.000_);[Red]($#,##0.000)"
Range("AM18").Resize(Cells(Rows.Count, "B").End(xlUp).Row - 17).NumberFormat = "$#,##0.000_);[Red]($#,##0.000)"


Range("AO18").Resize(Cells(Rows.Count, "B").End(xlUp).Row - 17).NumberFormat = "$#,##0.000_);[Red]($#,##0.000)"
Range("AP18").Resize(Cells(Rows.Count, "B").End(xlUp).Row - 17).NumberFormat = "$#,##0.000_);[Red]($#,##0.000)"


Range("AR18").Resize(Cells(Rows.Count, "B").End(xlUp).Row - 17).NumberFormat = "$#,##0.000_);[Red]($#,##0.000)"
Range("AS18").Resize(Cells(Rows.Count, "B").End(xlUp).Row - 17).NumberFormat = "$#,##0.000_);[Red]($#,##0.000)"

 

[Rick Rothstein]

This single line of code will do the same thing as all of the lines of code you posted in Message #1 ...

[table="width: 500"]
[tr]
	[td]Intersect(Rows("18:" & Cells(Rows.Count, "B").End(xlUp).Row), Range("AC:AD,AF:AG,AI:AJ,AL:AM,AO:AP,AR:AS")).NumberFormat = "$#,##0.000_);[Red]($#,##0.000)"[/td]
[/tr]
[/table]

 

[dmadhup]

Wow!
Thank you, Rick.