On Click Unselect All items in Listbox

[gmatriix]

Hello All,

I need help with the simple code I think. I have a Comb Box (Combo54). I would like it to unselect all in the listbox (1st CName) on Click or Select

Any Ideas?

Thanks

 

[gmatriix]

Well.....being on this site is ....I think making me better...I solved my own problem.

the code is:

Private Sub SCAC1_Click()
Dim x As Long
For x = 0 To Me.lstCName.ListCount - 1
Me.lstCName.Selected(x) = False

Next

End Sub
[Code/]

Thanks Again Everyone!:eek:

 

[Muzi&Con]

Well.....being on this site is ....I think making me better...I solved my own problem.

the code is:

Private Sub SCAC1_Click()
Dim x As Long
For x = 0 To Me.lstCName.ListCount - 1
Me.lstCName.Selected(x) = False

Next

End Sub
[Code/]

Thanks Again Everyone!:eek:

thanks!
I was looking for more simple..
but only yours works.