I do it like:
Range("D18").Copy
Range("C18").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:=
_
False, Transpose:=False

HTH
Ed

"cakonopka " wrote in message
...
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/