Delete Worksheets Based on Name from InputBox Criteria

Hi Everyone,
Is there a way to enter a word in an inputbox and have a macro delete all worksheets containing that word?

I have the macro below but I don't know how to incorporate the InputBox function to ask the user to enter the criteria for deletion.

For example, I should be able to enter Sales, and the macro will delete worksheet sales, sale2, and salesreport from my workbook...

Please Login or Register  to view this content.

Thank you so much.