hente data fra andet ark

Jeg har en makro der henter data fra en anden fil, som makroen lader mig udpege.

Nu kunne jeg godt tænke mig at gøre det samme. Bare med en "foruddefineret" fil.
Makroen skal automatisk udpege filen:
c:\dokument\gamledata.xls

Er der nogen der kan hjælpe med at ændre det øverste i koden, så jeg kan få ovenstående til at virke?



Min nuværende kode ser sådan ud:
Sub importer_data()
If MsgBox("Er du sikker på at du vil importere data fra en anden fil?", vbOKCancel, "Advarsel!") = vbCancel Then Exit Sub
   
Dim fn As Variant
    ChDrive "c"
    ChDir "c:\dokument"
    fn = Application.GetOpenFilename("Excel-files,*.xls", 1, "Vælg fil", , False)
    If TypeName(fn) = "Boolean" Then Exit Sub
    Debug.Print "Selected file: " & fn
    If MsgBox("Du har valgt at importere data fra filen:" & vbLf & vbLf & fn & vbLf & vbLf & "Er du sikker på at du vil fortsætte?", vbOKCancel, "Advarsel!") = vbCancel Then Exit Sub
    On Error Resume Next

Dim wb As Workbook
    Set wb = Workbooks.Open(fn, True, True)

    With ThisWorkbook.Worksheets("ark1")
        .Range("data1").Formula = wb.Worksheets("ark1").Range("data1").Formula
        .Range("data2").Formula = wb.Worksheets("ark1").Range("data2").Formula
    End With
   
    wb.Close False
    Set wb = Nothing
    Application.ScreenUpdating = True
MsgBox "Importen er færdig!"
End Sub