kommandoknap til at komme frem med prompten: Gem som

Har du ikke dette navn stående i ark/projektmappen du skal gemme som?
Jeg har en faktura skabelon som jeg har en gem som knap i.
Koden til dette er:

Sub gemSom()
Const filstiNavn = "Destination på hovedmappe sim sti"
Dim navn As String, fakturaNr As String
 
    navn = Range("B8")
    fakturaNr = Range("G7")
 
Rem Er der faktura-nr i G7
    If fakturaNr = "" Then
        ActiveWorkbook.SaveAs filstiNavn + "\prøvefakturaer\" & navn & ".xlsm"
    Else
        ActiveWorkbook.SaveAs filstiNavn + "\færdige fakturaer\" & fakturaNr & " " & navn & ".xlsm"
    End If
End Sub

Står der navn i B8 gemmes mappen i prøvefaktura
Er der tillige tilføjet et faktura nummer gemmes i færdig faktura.

Ved ikke om der er ideer derfra du kan bruge?

For efterfølgende at udskrive 2 kopier har jeg lavet denne makro knap:
Sub Macro2()
ActiveWindow.SelectedSheets.PrintOut Copies:=2, Collate:=True
End Sub

som dog kun lige udskriver det aktive vindue. Min faktura skabelon har 5 ark til faktura, en til prisliste og en til timeberegner.

tak

smid lige et svar så du kan få point

velbekomme