Gemme filer med autom tildelt filnavn

du skriver :Jeg har fået den til at tildele et automatisk nyt arb seddel nummer,...


hvis fx dette nummer står i celle "C3" = det sammme som cells(1,3),
kan en løsning se slik ut:

Public Sub Workbook_BeforePrint(Cancel As Boolean)
   
    Dim seddelnavn As String
   
    If Not IsEmpty(Cells(1, 3).Value) Then
      seddelnavn = Cells(1, 3).Text
      Sheets(1).Name = seddelnavn
      Sheets(1).Copy
      ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\" & seddelnavn
      Windows("Main.xls").Activate
    End If
End Sub

unnskyld, rettelse..
hvis fx dette nummer står i celle "C1" = det sammme som cells(1,3),

Mange tak, det virker fint.
Hvor skriver jeg hvor disse filer skal gemmes, således at de kan blive gemt i et underbibliotek ?

endre denne linje:
....SaveAs Filename:=ThisWorkbook.Path & "\" & seddelnavn
til ....
....SaveAs Filename:=ThisWorkbook.Path & "\navn på din undermappe\" & seddelnavn

Du kan også samle alle sedler i EN xls bok, slik at de kommer på hver sin fane!
prøvc denne. DU MÅ DA LAGRE EN XLS SOM HETER Seddelbok som sedlene kan kopieres til først.

Public Sub Workbook_BeforePrint(Cancel As Boolean)

    Dim wb(2) As Workbook
    Set wb(1) = ThisWorkbook
    If Not IsEmpty(Cells(1, 3).Value) Then
      Sheets(1).Name = Cells(1, 3).Text
      Workbooks.Open Filename:=ThisWorkbook.Path & "\Seddelbok.xls"
      Set wb(2) = ActiveWorkbook
      wb(1).Activate
      Sheets(1).Copy before:=wb(2).Sheets(1)
      wb(2).Save
      wb(2).Close
      wb(1).Activate
      Set wb(1) = Nothing
      Set wb(2) = Nothing
    End If
End Sub

Når jeg vil lukke excel arket så spørger den om jeg vil gemme ændringerne i ark 1 - ark 2 -ark 3 (altså alle de nummererede ark jeg har oprettet) Den spørger om alle de nummerede ark der er oprettet, så det er lidt besværlig når jeg skal lukke arket ned igen.
Kan man komme uden om det ?
På forhånd mange tak

Er litt usikker på hvilken løsning du benytter men generelt.

Hivs du ønser at vba skal lagre regnearket benytter du .SAVE
fx.
ThisWorkbook.Save  eller    wb(1).Save
   
Hvis du ønkser å FORTELLE EXCEL at arket alt er lagret benytter du SAVED
fx.
ThisWorkbook.Saved    eller    wb(1).Saved

når jeg prøver de løsningene som er skissert den 5.mars får ikkke jeg disse spørsmål.
håper du finner ut av det.