Hej Peter

Det ska inte vara några större konstigheter, jag brukar skapa ett blad som jag döper till inställningar eller dyl, och däri kan man sedan spara ner information som man sedan ska återanvända. Kan dölja bladet så det inte stör...

Om du vill använda koden rakt av utan att göra några ändringar så gör du följande

Börja med att skapa ett blad som heter "Inställningar" 

i det bladet så skall :

sökvägen stå i cell A2

Filnamnet utan löpnummer och filnamn i cell A4

Löpnummer i Cell A6 (måste vara en siffra angiven)

Ovan tillåter dig alltså att sätta en överskrift över resp. cell som du använder dig av.

Går att utöka med många fler kontroller på att tex. kontrollera att filen inte existerar etc, nedan kod är rätt basic

Koden är sedan:

        With Sheets("Inställningar") 'ändra Inställningar till vad du väljer att döpa din flik till

            If (Not (.Cells(2, 1).Value = "") And _

                Not (.Cells(4, 1).Value = "")) Then

                Dim sökväg As String

                Dim filnamn As String

                Dim löpnummer As Integer

                    sökväg = .Cells(2, 1).Value

                    filnamn = .Cells(4, 1).Value

                    löpnummer = CInt(.Cells(6, 1).Value)

                ActiveWorkbook.SaveAs Filename:= _

                sökväg + filnamn + CStr(löpnummer) + "xlsm", _

                FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False

                löpnummer = löpnummer + 1

                .Cells(6, 1).Value = CStr(löpnummer)

            End If

        End With