Update Format of cells in multiple worksheets

[AliH]

I have a number of worksheets - all the same layout. There are 3 cells that
I wish to be formatted to Number, 2 decimal places and comma separator eg
1,200.00

Is it possible to do this automatically? if yes how?

 

[Norman Jones]

Hi AliH,

One way:

'============================>>
Public Sub TryIt()

Dim wb As Workbook
Dim sh As Worksheet
Dim arr As Variant
Dim i As Long

arr = Array("Sheet1", "Sheet2", "Sheet4") '<<=== CHANGE

For i = LBound(arr) To UBound(arr)
Sheets(arr(i)).Range("A10").NumberFormat = "0.00"
' <<===== CHANGE RANGE
Next

End Sub
'<<========================