Hi
try
Private Sub CommandButton1_Click()
Range("D18").Copy
Worksheets("Customer Details").Range("C18").PasteSpecial
Paste:=xlPasteValues
Range("A1").ClearContents
end sub

Frank

Hi there all

I have got thsi to work now:

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

End Sub

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

cheers

from CK


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