If statement using InStr function using vbTextCompare is giving type 13 mismatch error

Hello,

I'm using a macro to look for any worksheets that have any case of 'rename' in the sheet name, and prompt for user input to change the name. It needs to recognize the word, regardless of uppercase or lowercase. I looked for help on the web, and vbTextCompare seemed to offer a solution. However, I can't get it to work. I'm using the following code:

Please Login or Register  to view this content.

Not sure what I'm doing wrong here. The rest of my code works great. If I remove the vbTextCompare, it also works well, but only if 'rename' is all uppercase.
Any help is appreciated!

Please Login or Register  to view this content.

You can not omit 1st argument when you specify comparemode

Please Login or Register  to view this content.

Thank you! Putting in the first argument solved the problem. In response to Norie, my full code is below. I've made it as clean as I know how to make it without having had any classes on VBA.

Please Login or Register  to view this content.