Script out of!!!

Some videos you may like

Excel Facts

Create a chart in one keystroke
Select the data and press Alt+F1 to insert a default chart. You can change the default chart to any chart type

Richard Schollar

MrExcel MVP
Apr 19, 2005
Presumably you don't have all of column Z full of sheet names to delete (would be the biggest workbook I've ever seen with at least 65536 worksheets!). try this:

Rich (BB code):
Sub finaldelsheets()
Dim Ws As Worksheet
Dim arr
arr = Range("Z1:Z" & Cells(Rows.Count,"Z").End(xlUp).Row).Value
Application.DisplayAlerts = False
On Error Resume Next
For Each ws In Worksheets
  If Isnumeric(Application.Match(ws.Name,arr,0)) Then _
Next ws
Application.DisplayAlerts = True

End Sub

Subscribe on YouTube

Watch MrExcel Video

Forum statistics

Latest member

This Week's Hot Topics

  • Sort code advice please
    Hi, I have the code below which im trying to edit but getting a little stuck. This was the original code which worked fine,columns A-F would sort...
  • SUMPRODUCT with nested If statement
    Hi everyone, Hope you're all well. I'm hoping someone will be able to point me in the right direction with a problem I'm having with a SUMPRODUCT...
  • VBA - simple sort is killing me!
    Hello all! This should be so easy, but not for me, apparently! I have a table of data that can be of varying lengths and widths. My current macro...
  • Compare Two Lists
    I have two Lists and I need to be able to Identify differences between them. List 100 comes from a workbook - the other is downloaded form the...
  • Formula that deducts points for each code I input.
    I am trying to create a formula that will have each student in my class start at 100 points and then for each code that I enter (PP for Poor...
  • Conditional formatting formula required for day of week and a value
    Hi, I have a really simple spreadsheet where column A is the date, column B is the activity total shown as a number and column C states the day of...