Navn på importeret fil

Hej Lars

prøv denne her

-------------------------------

Dim Navn As String

Sub larskoch()

    Workbooks.Open ("F:\VBA\Larskoch\Test2.xlsm")
    Windows("Test2.xlsm").Activate
    Navn = ActiveWorkbook.Name
    Sheets("Ark1").Select
    Selection.CurrentRegion.Select
    Selection.Copy
    Windows("Test.xlsm").Activate
    Cells(2, 1).Select
    ActiveSheet.Paste
    Cells(1, 1) = Navn
End Sub

---------------------------

Med venlig hilsen

Henrik