give to all cells te same format 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"