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