Makro som gemmer 2 ark (ud af 12) i ny Excel fil

Sub Makro1()
Filnavn = InputBox(" Intast filnavn, uden .xls")
Sti = "C:\Dokumenter\" 'ret til din sti
    Sheets(Array("Ark1", "Ark2")).Select ' ret til dine 2 ark
    Sheets("Ark1").Activate ' ret til dit første ark
    Sheets(Array("Ark1", "Ark2")).Copy ' ret til dine 2 ark
    ActiveWorkbook.SaveAs Filename:= _
      Sti & Filnavn & ".xls", FileFormat:=xlNormal _
        , Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
        CreateBackup:=False
    ActiveWindow.Close
End Sub

Av! Da filen skal deles ud til forskellige brugere og jeg ikke ved hvor de placerer den, kan jeg få "aktuel" sti?

Sub Makro1()
Filnavn = InputBox(" Intast filnavn, uden .xls")
Sti = ThisWorkbook.Path ' samme sted som denne excel mappe ligger
    Sheets(Array("Ark1", "Ark2")).Select ' ret til dine 2 ark
    Sheets("Ark1").Activate ' ret til dit første ark
    Sheets(Array("Ark1", "Ark2")).Copy ' ret til dine 2 ark
    ActiveWorkbook.SaveAs Filename:= _
      Sti & Filnavn & ".xls", FileFormat:=xlNormal _
        , Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
        CreateBackup:=False
    ActiveWindow.Close
End Sub

ret linien
Sti = ThisWorkbook.Path ' samme sted som denne excel mappe ligger

til denne
Sti = ThisWorkbook.Path & "\" ' samme sted som denne excel mappe ligger

Tak, jeg får det vist ikke prøvet før i morgen, -vender tilbage da.

kabbak tak
Ku' ik' li' la' vær'
Det virker perfekt, lav et svar så du kan få de velfortjente point.
-krogsager

-lige en lille "sjov" ting, hvis jeg trykker "cancel" i pop-up boksen, gemmer den alligevel en file med navnet ".xls" ???

nu er det med cancel ast ind

Sub Makro1()
Filnavn = InputBox(" Intast filnavn, uden .xls")
If Filnavn = "" Then Exit Sub ' hopper ud ved cancel
Sti = ThisWorkbook.Path & "\" ' samme sted som denne excel mappe ligger
Sheets(Array("Ark1", "Ark2")).Select ' ret til dine 2 ark
    Sheets("Ark1").Activate ' ret til dit første ark
    Sheets(Array("Ark1", "Ark2")).Copy ' ret til dine 2 ark
    ActiveWorkbook.SaveAs Filename:= _
      Sti & Filnavn & ".xls", FileFormat:=xlNormal _
        , Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
        CreateBackup:=False
    ActiveWindow.Close
End Sub

Perfekt, tak
-krogsager

tak for point ;-))