Update Format of cells in multiple worksheets

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?

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
'<<========================


---
Regards,
Norman



"AliH" <[email protected]> wrote in message
news:%[email protected]...
>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?
>
>