Forms VisualBasic Script

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