Private Sub cmdCopy_Click()
Workbooks("Compare WorkBooks.xls").Worksheets("Sheet1").Activate
Cells.Clear
Range("A1").Select
yourTextField.SelStart = 0
yourTextField.SelLength = Len(txtReferences.Text)
yourTextField.Copy
ActiveSheet.Paste
End Sub