VBA Worksheet Tab Rename Macro Causing Excel Infinite Loop

Start out with fresh with just the one worksheet and just this code for the Combobox1_Change.

Private Sub ComboBox1_Change()
    
    Dim strNewName As String
    
    If ComboBox1.ListIndex > -1 Then    'Test if anything is selected from the list
    
        Range("B22").Value = ComboBox1.Text
        
        strNewName = ComboBox1.Text & Format(Range("I1").Value, "_yy")  'New name
        
        If Not Evaluate("ISREF('" & strNewName & "'!A1)") Then  'Test if worksheet name already exists
            
            Me.Name = strNewName    'Rename sheet
            
            'Prompt to copy invoice
            If MsgBox("Do you want to enter another Quote? ", vbQuestion + vbYesNo, _
                      "Another Vendor") = vbYes Then Me.Copy After:=Me
                      
        Else
            MsgBox strNewName, vbExclamation, "Vendor Quote Already Exists"
        End If
        
    End If
    
End Sub