Listbox Clearing

I have 4 listboxs on a Userform populated by rowsource

I have code that will not allow conflicting selections of the list boxs

EG listbox1 conflicts with listbox3
listbox2 conflicts with listbox4

What I am trying to do is when the user clicks on listbox1 and listbox3

I clear the selections from 1 and 3 leaving no highlted blue in the boxs

My code runs it clears the first listbox and not the second

I have tried using boolean to clear them but it is the same thing

here is my code below

If shOptions.Cells(r, c) = "" Then
MsgBox "You have selected conflicting Alterations"
UserForm1.Controls(h.Name).ListIndex = -1 *this works
UserForm1.Controls(lb.Name).ListIndex = -1 * this does not fire
Exit Sub
End If

If I change the code to
UserForm1.Controls(lb.Name).ListIndex = -1 * this works
UserForm1.Controls(h.Name).ListIndex = -1 *this does not