For schleife immer Außerhalb Index

Sub an


Sub löschen()
Dim e As Integer
Dim WB As Workbook
Set WB = ThisWorkbook
For e = 1 To WB.Sheets.Count
If WB.Sheets(e).Name = "3" = True Then
WB.Sheets(e).Delete
End If
Next
WB.Worksheets.Add before:=Worksheets(Worksheets.Count)
With ActiveSheet
.Name = "3"
End With
Dim DS As Worksheet
Set DS = WB.Sheets(Worksheets.Count)
End Sub


Wieso läuft die For schleife immer Außerhalb des Index (Zumindest bei mir)?

Ratlos!

Gibt es da ne Lösung oder mach ich was falsch?!

Gruß Corben