Excel VBA Listbox Unselect Looping Error

Hi All,

I have the following VBA code that is suppose to deselect all the check boxes if All is selected (Selected(0)=All). The problem I'm having is that when the code reaches the SelectedBox.Selected(counteri) = False code below, it reverts back to the beginning of the entire subroutine. Here is the code:

If SelectedBox.Selected(0) = True Then
    
            Sheets("1").Range("Name").Value = "All"
                
                For counteri = 1 To SelectedBox.ListCount
                    
                    SelectedBox.Selected(counteri) = False
                    
                Next
  
        End If

Any help is much appreciated.