Åbne en fil, kopiere data, sortere, lukke. og gemme

jeg har en åben fil (_telefon_test.xls) hvor jeg laver en filtrering ved hjælp af en opslag, jeg skal nu åbne (xxxxx.xls) kopiere a6:g2004 ind i (_telefon_test.xls) lukke (xxxxx.xls)gemme det hele som "C:\Documents and Settings\Am2oft\Dokumenter\Dir\Tele" (xxxxx.xls) filnavn må gerne foreslås, når filtreringen er kontroleret. Hvorefter (_telefon_test.xls) skal åbnes igen.
Følgende klarer noget, men lukker ikke (xxxxx.xls) foreslår ej heller "filnavn" åbner heller ikke (_telefon_test.xls) igen.


Module1

'
    Sub FilÅbenDialogboks()
    ChDir "C:\Documents and Settings\Am2oft\Dokumenter\Dir\Tele"
    Flt = "Excel mappe(*.xls),*.xls,"
    Flt = Flt & "Print-filer (*.prn),*.prn,"
    Flt = Flt & "Tekst-filer(*.txt),*.txt"
    Titel = "Min private åben-fil boks"
    fileToOpen = Application _
    .GetOpenFilename(Flt, , Titel)
  If fileToOpen <> False Then
Workbooks.Open Filename:=fileToOpen
    End If
     
End Sub

Module2
Sub Indlæs()

'
    Range("M3:N3").Select
    Selection.ClearContents
    Rows("5:5").Select
    Selection.Delete Shift:=xlUp
    Columns("A:F").Select
    Selection.ClearContents
    Application.Run "_Telefon_test.xls!FilÅbenDialogboks"
    Columns("A:F").Select
    Selection.Copy
    Windows("_Telefon_test.xls").Activate
    ActiveSheet.Paste
    Rows("5:5").Select
    Application.CutCopyMode = False
    Selection.Insert Shift:=xlDown
    Range("G6").Select
    Range("A6:G2004").Sort Key1:=Range("G6"), Order1:=xlAscending, Header:= _
        xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal
    Sheets("Udskrift").Select
    Range("F5").Select
    Selection.AutoFilter
    Selection.AutoFilter Field:=6, Criteria1:="<>0", Operator:=xlAnd
    Sheets("Ark1").Select
    Range("A6").Select
    Selection.AutoFilter
    Range("M3:N3").Select
End Sub