VBA kode til knap i excel

Jeg har lavet en knap i excel der gerne skulle browse og derefter åbne en "txt"-fil. Derefter skal den kopier indholdet i txt-filen for til sidste at "paste values" i et ark der ligger i samme fil som knappen.

Indtil videre har jeg følgende:


Private Sub CommandButton2_Click()
Dim FileToOpen As Variant
FileToOpen = Application _
    .GetOpenFilename("Text Files (*.Txt), *.Txt", , "Vælg Filer", , True)
If FileToOpen(1) <> False Then
For i = 1 To UBound(FileToOpen)
Workbooks.Open FileToOpen(i)
Cells.Select
Selection.Copy
Windows("ABC Gentofte.xls").Activate
Sheets("GL").Select
Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
Range("A1").Select
Application.CutCopyMode = False
Calculate
Next
End If
End Sub


Den fungerer indtil Cells.select, også går den i stå.
Hvad er der galt?