Hi there

I have got to this stage

Private Sub CommandButton1_Click()
Range("D18").Copy
Worksheets("Customer Details").Range("C18").Select
Selection.PasteSpecial , Paste:=xlValues, Operation:=xlNone,
SkipBlanks:=xlNone
Range("D18").ClearContents

End Sub

the only thing is it doesent work when i enter the different worksheet
bit as u can see above, after the copy bit, nay idea why?

cheers

from CK


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