Sheets einzeln als Datei speichern

Option Explicit
' Original-Quelltext unter: https://www.online-vba.de/sheets-einzeln-als-datei-speichern
' Express-Hilfe für VBA unter https://www.online-vba.de/vba-expresshilfe
' Es gelten die Nutzungsbedingungen von Online-VBA.de

Public Sub OVBAde_Alle_Sheets_als_Datei_speichern()
  Dim sPath As String
  Dim oSheet As Object
    
    sPath = "C:\TEST\" 'Pfad bitte anpassen
    
    For Each oSheet In ActiveWorkbook.Sheets
        
        oSheet.Copy
        ActiveWorkbook.SaveAs CStr(sPath & oSheet.Name & ".xlsx")
        ActiveWorkbook.Close
    
    Next oSheet
    
    Set oSheet = Nothing
End Sub