Why use the format cell function.
Highlight the row or column of cells you want to format.
Right click and select Format Cells.
On the NUMBER Tab, click Custom.
In the Type box place:- @"-0000"
Use the {@} if text is placed int he cell or use the {#} if only numerical
values are used.

No need for a macro.

Corey....
"Tina" wrote in message
...
I need a macro that will add the text -0000 at the end of whatever text is
in
that current cell.

For example Cell = 75154

I need to add -0000 at the end of this so then it will be

75154-0000

I have tried all the formating stuff, but the Zipcode cell format doesnt
work.