need help, want to remove some sheets

  • Thread starter Thread starter Newbie80
  • Start date Start date
N

Newbie80

Hi, I have some sheets that starts with the same substring and I wan
all of them to be removed is there a simpel solution to this?

e.g
Thisworkbook.sheets("name-yyyy").delete exact match
The year differs so would like to remove all sheets that starts with:
Thisworkbook.sheets("name-").delete (multi delete if poss
 
For Each sh In ThisWorkbook.Worksheets
If Left(sh.Name,5) = "name-" Then
if ThisWorkbook.Sheets.Count <> 0 Then
Application.DisplayAlerts = false
sh.delete
Application.DisplayAlerts = True
End If
End If
Next sh
 
You must log in or register to reply here.

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

Match and delete rows on two different sheets from reference numbers 4
Excel VBA to go to specific sheet & cell in the current workbook not working. 2
Compare identifier columns from 2 sheets - remove rows that are dups 2
Vlookup and return sheet name also 2
Help with Cut-Delete-Paste to other sheet 1
Delete a sheet 1
Search other sheets for numbers & color them 10
Dependent drop down dynamic range formula, off sheet. 7

Back
Top