Duplication Of Sheet Names

I made a macro that will name the current sheet whatever text is found in cell B2 on that sheet. This works great unless that sheet name already exists.

If the sheet name already exists, is there a way to rename it as Cell B2 plus the number 2 after the title so it doesn't cause an error?

Example:

"Smith, Bob" is a sheet name, so the macro would make the new sheet name "Smith, Bob 2"

Alternatively, how could I give a pop-up telling about the error and deleting the current sheet instead of renaming it with a "2"?

Eample:

"Sorry, 'Smith, Bob' already exists. Deleting new sheet." as a popup and have it delete the current sheet.