Macro to delete all sheets with Specific names

[howard]

I need code that will delete all sheets containing the name page for eg page1, page2, page3 etc

Your assistance will be most appreciated

 

[RichardMGreen]

Try this:-

sub deleter()
dim ws as worksheet
application.displayalerts=false
for each ws in worksheets
if left(ws.name,4)="Page" then ws.delete
next
application.displayalerts=true
end sub

You won't get any notifications with the above, the sheets will just be deleted.