CODE-SCHNIPSEL

Option Explicit
' ****************************************************************
' Autor/en und Original-Quelltext unter:
' https://www.online-vba.de/vba_savesheets.php
' Verwendung der Quelltexte auf eigene Gefahr!
' Es gelten die Nutzungsbedingungen von https://www.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