Delete All Worksheets Without String

I do not think there is Not on the instr function. You can use less than or greater than instead.

Please Login or Register  to view this content.

Thank you for the correction.

Sub CapitalProjects() Dim i As Integer, n As Integer n = ThisWorkbook.Worksheets.Count Application.DisplayAlerts = False Application.ScreenUpdating = False For i = n To 1 Step -1 On Error Resume Next If InStr(1, Page(i).Name, "CAPITAL PROJECTS", 1) < 0 Then Page(i).Delete On Error GoTo 0 Next i Application.DisplayAlerts = True Application.ScreenUpdating = True End Sub

Now I just need to figure out how to fix the "Compile Error: Sub or Function"

From the Debugger:

Capture.PNG

Yes, "Page" is not defined. What is "Page"? Should not be Sheets(i).?

Yes, you are correct. I mistakenly though that was where the worksheet name went (Sheet1, Sheet2 ext) and replaced it with my worksheet name (Page 1, Page 2 ext) Anyway, the macro now runs without error, but it isn't deleting any pages. Hopefully I can figure it out from here on my own. Thanks again for your help.

If InStr(1, Sheets(i), "CAPITAL PROJECTS", 1) < 0 Then Sheets(i).Delete
What the code does is if the sheet name does not have CAPITAL PROJECTS (On the name of the sheet), then the code deletes that sheet.

Haha, dang it. That is not at all what I need it to do.

I don't suppose you could point me in the direction of a macro that "searches the contents of each worksheet for "TOTAL CAPITAL PROJECTS:" and deletes every worksheet that does not contain that text string.

Do you mean "TOTAL CAPITAL PROJECTS:" found in any cell, not just the sheet name?

Correct; if "TOTAL CAPITAL PROJECTS:" is found in any cell, the worksheet is not to be deleted. All other pages are to be deleted. If it helps, the pages are all no bigger than 60 by 80 (A1:BR80)

Please Login or Register  to view this content.

If it is not exact match, you need to use this line instead

Please Login or Register  to view this content.

Wow, that worked perfectly after I added the inexact line. Thank you very much sir! You just saved me about 23 hours of manually pulling 5-7 pages from 90 50-120 page documents. (7,650 pages total!) Heck, I'll probably use this macro a half dozen more times over the next couples years.