Hvordan gemmes hvert ark i én workbook som selvstændige filer - automatisk helst?

Hej Mfynbo.

Prøv dette:
Rem Kode indsættes i VBA / ThisWorkbook
Public Sub gemArkSomFil()
Const stiNavn = "C:\Users\peter\Desktop\"            'justeres
Dim ark As Worksheet
    For Each ark In ActiveWorkbook.Sheets
        With ark
            filnavn = .Name
            .Select
            .Copy
            ChDir stiNavn
            ActiveWorkbook.SaveAs Filename:=stiNavn & filnavn & ".xlsx", _
                FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
               
            ActiveWorkbook.Close
        End With
    Next ark
End Sub
Jeg har ikke prøvet det men kun 'stjålet' det fra nettet.

Mvh SC0091