Kopiere ark fra anden fil (vba)

Hej jeg sidder og bokser med et lille problem.

Jeg vil gerne lave en funktion til at importere sheet1 fra en fil som jeg vælger via af en listbox. Jeg kan ikke rigitg finde ud af at springe fra den fil man åbner og kopierer ark fra og tilbage til min oprindelige mappe. Hjælp???


Her er min kode for formen: (Der er føglde elementer: listbox1 og CmdImport)

Private Sub UserForm_Initialize()
Set fs = Application.FileSearch
With fs
    .LookIn = [StdBibliotek]
    .Filename = "*.xls"
    If .Execute > 0 Then
        For i = 1 To .FoundFiles.Count
            ListBox1.AddItem .FoundFiles(i)
        Next i
    Else
        MsgBox "Der ligger ikke nogle excel-filer i det angivne bibliotek"
    End If
End With

End Sub

------

Private Sub CmdImport_Click()
    Application.ScreenUpdating = False
    Workbooks.Open Filename:=ListBox1.Value
    Sheets(1).Select
    Sheets(1).Copy
    Application.ActiveWorkbook.Close
    Application.ActiveWorkbook Before:=Application.ActiveWorkbook.Sheets(2)
    Workbooks(ListBox1.Value).Close
    Application.ScreenUpdating = True
End Sub


Mhv Gibber