Hi there all

I have got thsi to work now:

Private Sub CommandButton1_Click()
Range("D18").Copy Destination:=Worksheets("Custome
Details").Range("C18")
Range("A1").ClearContents

End Sub

byut i only want it to copy the data not the format of the cell i wan
it to use the format that is already there, any ideas?

cheers

from C

--
Message posted from http://www.ExcelForum.com