try this
Sub trimcode()
For Each cel In Selection
cel.NumberFormat = "@"
cel.Value = Left(cel, 5)
Next cel
End Sub
--
Don Guillett
SalesAid Software

"Manu" wrote in message
...
Column contains 10 characters (e.g. 02453-1234) making up the zip+4. I
need
to remove the last 5 characters, leaving only the basic 5 digit zip-code.
The column contains about 10,000 entries. Please suggest methods by which
this can be done. Thanks!