iknowu99
Well-known Member
- Joined
- Dec 26, 2004
- Messages
- 1,158
what i have right now:
gives error because once it deletes one found sheet there are that many less sheets to go through
Code:
Dim sht As Worksheet
Application.DisplayAlerts = False
With ActiveWorkbook
For Each sht In Sheets
If Left(sht.Name, 3) = "Gre" Then sht.Delete 'edited
Next sht
End With
Application.DisplayAlerts = True
gives error because once it deletes one found sheet there are that many less sheets to go through