Do you mean

Sub Macro()
Range("D1:D10").NumberFormat = "0000"
End Sub

--
Jacob


"dbconn" wrote:

This forum has been a great help. Now I need a formula that will
automatically copy text from one cell to another when I change the text in
the first cell.

Much appreciated
--
dbconn