The below code goes into an endless loop if you click on checkbox1. Any idea why? If I step through the code, it alternatively jumps through each of the two TextBox1.value=… statements. It does not visibly update the check box.

    
Private Sub CheckBox1_Click()

    Select Case CheckBox1
        Case True
            CheckBox1 = False
            TextBox1.value = ""
        Case False
            CheckBox1 = True
            TextBox1.value = InputBox("What order do you want " & CheckBox1.Caption & " to be sorted in? ie 1, 2, 3...", "Sort Order")
    End Select
    
End Sub