Dim MyName As String
Dim MySheet As Object
Set MySheet = ActiveWorkbook.ActiveSheet
Dim Sheet As Object
On Error GoTo btnRename_Err:
....(Other Code)
NamingRoutine:
Else
For Each Sheet In ActiveWorkbook.Sheets
If MyName = Sheet.Name Then MsgBox "This Sheet Name is already in
use. Please pick another name.", , "This Worksheet Name is in Use."
Next Sheet
GoTo NamingRoutine:
.....(Other Code)
This Code fails if MyName and Sheet.Name are the same except for
capitalization.
For Example: If MyName = Hello and Sheet.Name = hello, the code fails. It
generates the MsgBox "This Sheet Name..." and loops endlessly.

Can I convert MyName and Sheet.Name to upper case, then Compare?
Other Suggestions? Thank you.