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" wrote in message
...
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?