Hallo Community

Ich bekomme den Laufzeitfehler 9, wenn ich alle sheets bis auf eins lösche.

Und hier noch der Kot

Private Sub Reset()

Dim sWsOriginal As String
Dim objWksCurrent As Worksheet
Dim objSheetsInWb As Variant
    
    Worksheets(sResetName).Visible = True
    sWsOriginal = objWs.Name
    objWs.Name = "Delete"
    Worksheets(sResetName).Name = sWsOriginal
    Set objSheetsInWb = ThisWorkbook.Sheets
    Worksheets(sWsOriginal).Activate
    
    Application.DisplayAlerts = False
    
    For Each objWksCurrent In objSheetsInWb
        If objWksCurrent.Name <> sWsOriginal Then
            objWksCurrent.Delete
        End If
    Next
    
    Application.DisplayAlerts = True
    
    frmSetSheetName.Hide

End Sub

Ich danke schon mal im vorraus!

< ERROR >