how to set accounting format of cell in excel by vba code example

Example: excel vba change format of cell

'VBA code to change the Number Formatting of a cell range:

[A1].NumberFormat = "@"

'There are hundreds of options for Number Formats. The above sets
'cell A1 to display as Text.

Here are a few other Number Formats:

[A1].NumberFormat = "General"
[A1].NumberFormat = "$#,##0.00"
[A1].NumberFormat = "mm-dd-yyyy"