Hi Paul,

In a new sheet assuming you take a list of numbers over and locate the
in Column A:

Sub zipa()
Range("A1", Range("A1").End(xlDown)).Copy Range("C1")
Range("C1", Range("C1").End(xlDown)).NumberFormat = "00000-0000"
End Sub

Art67

--
art67
-----------------------------------------------------------------------
art678's Profile: http://www.excelforum.com/member.php...fo&userid=3639
View this thread: http://www.excelforum.com/showthread.php?threadid=56162