Solved: delete sheets between two dummy sheets vba

[thmh]

hy ,
i need to delete all sheets between two dummy sheets named "0" and "100"

[Bob Phillips]

Dim i As Long

Application.DisplayAlerts = False

With ActiveWorkbook

For i = .Worksheets("100").Index To .Worksheets("0").Index Step -1

.Worksheets(i).Delete
Next i
End With

Application.DisplayAlerts = True