Delete sheets with specific sheetName

iknowu99

Well-known Member
Joined
Dec 26, 2004
Messages
1,158
what i have right now:

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
 

Some videos you may like

Excel Facts

Control Word Wrap
Press Alt+Enter to move to a new row in a cell. Lets you control where the words wrap.
L

Legacy 14611

Guest
seems like deleting values in a column

this usually done by deleting from the bottom up, not from the top down

for each ... next always goes from the top down

in your case, suggest you use the code to count the number of sheets and delete backwards
 

Watch MrExcel Video

Forum statistics

Threads
1,123,525
Messages
5,602,177
Members
414,510
Latest member
mande358

We've detected that you are using an adblocker.

We have a great community of people providing Excel help here, but the hosting costs are enormous. You can help keep this site running by allowing ads on MrExcel.com.
Allow Ads at MrExcel

Which adblocker are you using?

Disable AdBlock

Follow these easy steps to disable AdBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the icon in the browser’s toolbar.
2)Click on the "Pause on this site" option.
Go back

Disable AdBlock Plus

Follow these easy steps to disable AdBlock Plus

1)Click on the icon in the browser’s toolbar.
2)Click on the toggle to disable it for "mrexcel.com".
Go back

Disable uBlock Origin

Follow these easy steps to disable uBlock Origin

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back

Disable uBlock

Follow these easy steps to disable uBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back
Top