Tabellenblätter einzeln als harte Werte

Hallo zusammen,

ich versuche nun schon den ganzen Tag aus einer Datei mehrere Tabellenblätter in einer jeweiligen neuen Datei als harte Werte zu speichern. Leider scheitert es gerade und mir raucht der Kopf...

Was ich bisher erreicht habe:
Schleife für das Speichern der Blätter funktioniert
Individuelle Namensvergabe anhand der Tabellenblattnamen funktioniert ebenfalls
diverse nicht relevante Blätter werden nicht gespeichert

Was ich konkret brauche:
Die harten Werte in den neu gespeicherten Dateien

Ich würde mich freuen, wenn mir hier jemand auf die Sprünge helfen kann.


Anbei der Code:

Sub xxx()
'** Prozedur zum extrahieren und speichern der einzelnen Arbeitsblätter
Call BuchungsbelegeSpeicher(ActiveWorkbook)
End Sub

Public Sub BuchungsbelegeSpeicher(Wkb As Workbook)
Dim bScreenUpdating As Boolean
Dim bEnableEvents As Boolean
Dim tPath As String
Dim tFileName As String
Dim tSheetName As String
Dim oSheet As Object
Dim ws As Worksheet
 
    With Application
    bScreenUpdating = .ScreenUpdating
    bEnableEvents = .EnableEvents
    .ScreenUpdating = False
    .EnableEvents = False
 
tPath = Wkb.Path & Application.PathSeparator
tFileName = WorksheetFunction.Substitute(Wkb.Name, ".xls", vbNullString)

For Each ws In Wkb.Sheets
Select Case ws.Name
Case "xx", "xxx", "raw_data", "Bezüge", "Aufbereitung" 'ausgenommene Blätter"
'nix machen
Case Else

ws.Copy

With ActiveWorkbook
   tSheetName = ws.Name
   .SaveAs tPath & "BeispielName_" & tSheetName & "_" & Format(Range("F2"), "MM.YY") & ".xls"
   .Close SaveChanges:=False
End With
End Select

Next ws
 
.ScreenUpdating = bScreenUpdating
.EnableEvents = bEnableEvents
End With
 
End Sub