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.

If InStr(1, Page(i).Name, "CAPITAL PROJECTS",1) < 0 Then Page(i).Delete