NumberFormat of a table column

[AndreB]

Dear Gurus,
adding a column to a table, I'd like to set the number format of the data in advance - numbers with two decimal digits or accounting.

Here below the code I'm using and in which I'd like to add a statement that selects the cells of the column changing their format.



Set ws2 = Worksheets("Resources")
Set table2 = ws2.ListObjects("Table2")


With table2
For i = 1 To durY
.ListColumns.Add
colCount = .ListColumns.Count
.HeaderRowRange(colCount).NumberFormat = "yyyy"
.HeaderRowRange(colCount).Value = DateAdd("yyyy", i - 1, stdate)
Next i
End With


I've tried adding, before the next, the statement:



.ListColumns(colCount2).DataBodyRange.NumberFormat = "Accounting"


But this is giving me an Application-defined error.

Could you please let me know where/ what I'm making wrong?

Thanks in advance,
A.

[Paul_Hossler]

I don't think number formats have names like Styles


Try ... .NumberFormat = "_($* #,##0.00_);_($* (#,##0.00);_($* "-"??_);_(@_)"


for Accounting