Find and Replace all - Macro with user input

The attached workbook macros will prompt the user for two input values and will then delete (clear the contents) of all cells in the worksheet of those values. It uses a wildcard such that if the user enters "red" and "green" , it will clear "red", Red", "red bull", "red ball", "green", "Green", "green apple", etc.

Please note, the macro requires the entry of two values. It can be modified to accept only one value but your specs indicated two.

Let me know how you make out.
J