Got it right....i must change my code from:

Private Sub CommandButton1_Click()
With Range(RefEdit1)
Copy
Range("e1").PasteSpecial
End With
End Sub
to:
Private Sub CommandButton1_Click()
sheet13.Range(RefEdit1).select
selection.copy
sheet13.Range("e1").selects
selection.pastespecial
End With
End Sub

Theuns


--
T.c.Goosen1977
------------------------------------------------------------------------
T.c.Goosen1977's Profile: http://www.excelforum.com/member.php...o&userid=35895
View this thread: http://www.excelforum.com/showthread...hreadid=559831