listbox clear selections

[smakatura]

I have tried every possible combination to resolve this issue and can not find an answer. Ia about to pull all my hair out. most of the code I have tried produces an error.

the following code does NOT produce an error...but also does NOTHING.

Sub Fix_Font_size()

 Sheets("Distribution").OLEObjects("ListBox1").Object.Value = Null
End Sub

can someone please help

 

[Jaafar Tribak]

Sheets("Distribution").OLEObjects("ListBox1").Object.ListIndex = -1

 

[Jaafar Tribak]

If you are referring to a multiselect listbox then:

Dim i As Long

With Sheets("Distribution").OLEObjects("ListBox1").Object
    For i = 0 To .ListCount - 1
        .Selected(i) = False
    Next i
End With

 

[Rick Rothstein]

This is an ActiveX ListBox with a known name on a known sheet... why are we vectoring through OLEObjects?

Sheets("Distribution").OLEObjects("ListBox1").Object.ListIndex = -1

Sheets("Distribution").ListBox1.ListIndex = -1

If you are referring to a multiselect listbox then:

Dim i As Long

With Sheets("Distribution").OLEObjects("ListBox1").Object
    For i = 0 To .ListCount - 1
        .Selected(i) = False
    Next i
End With

Dim i As Long

With Sheets("Distribution").ListBox1
    For i = 0 To .ListCount - 1
        .Selected(i) = False
    Next i
End With

 

[smakatura]

the with statement worked perfectly, thanks