Delete sheets starting with the name "sheet"

[fari1]

hi, i want a code, that may run in my workbook and delete all the sheets, that are starting with the name of "sheet", it can be anything after sheet.

it can be sheet1, sheet300 or sheet3 etc.

 

[taurean]

Following code should do:

Public Sub DelShts()
Application.DisplayAlerts = False
For i = Sheets.Count To 1 Step -1
If UCase(Left(Sheets(i).Name, 5)) = "SHEET" Then Sheets(i).Delete
Next i
Application.DisplayAlerts = True
End Sub

 

[wigi]

i want a code

Not a very friendly greeting for someone who is asking a favor

Anyway.

Dim I As Integer
Application.DisplayAlerts = False
For I = Sheets.Count To 1 Step -1
  If Sheets(i).Name Like "sheet*" Then Sheets(i).Delete
Next
Application.DisplayAlerts = True

 

[fari1]

thanks alot taurean

 

[fari1]

Respected wigi, next time i'll be seeking for some gud diction before posting here