problems deselecting items in a listbox

[roscoe]

I have a list box that allows multiple sections. At some point I want to deselect all the items in the list (code below)

I'm getting a run-time error 1004 on the line with the arrow: "Unable to get the selected property of the Listbox class"

I got this code from online and it looks pretty simple...can't figure out why it's not working. "curlist.ListCount" returns the currect value so I know curlist is being assigned properly...

Set curlist = sheets("main").Listboxes("List Box 72")
For i = 0 To curlist.ListCount - 1
    If curlist.Selected(i) = True Then  <-------------------
        curlist.Selected(i) = False
    End If
Next

Ideas?

Thanks!

 

[tlowry]

‘For a straight fowared question the answer I developed seems a bit complicated.

‘The problem, I think, is in the way the LB is created, so I created my own.
‘This creation is a one time only, then the rest of the process is the same, except ‘that “Selected” property works

‘Procedure:

‘Copy the code below into a moduel
‘Change the names in the “Const”s to your whims
‘Run CreateListBox (once) (if you need to run it again it will delete the LB first)
‘The rest of the process is the same

‘I have included some testing code as examples

‘-----------------------------------------------
‘-----------------------------------------------
‘-----------------------------------------------
Const LBName = "LBMulti01"
Const LBSheet = "Sheet1"
‘-----------------------------------------------
‘-----------------------------------------------
‘-----------------------------------------------
Sub CreateListBox()
On Error Resume Next
Sheets(LBSheet).ListBoxes(LBName).Delete
On Error GoTo ender
Set LBoxTL = Sheets(LBSheet).ListBoxes.Add(Top:=55, Left:=44, Width:=100, Height:=60)
With LBoxTL
.MultiSelect = xlSimple
.Name = LBName
End With
ender:
End Sub
‘-----------------------------------------------
‘-----------------------------------------------
‘-----------------------------------------------
Sub DeselectAll()
With Sheets(LBSheet).ListBoxes(LBName)
For i = 1 To .ListCount
.Selected(i) = False
Next i
End With
End Sub
‘-----------------------------------------------
‘-----------------------------------------------
‘-----------------------------------------------
Sub SelectedItems()
With Sheets(LBSheet).ListBoxes(LBName)
For i = 1 To .ListCount
If .Selected(i) = True Then
MsgBox .List(i)
End If
Next i
End With
End Sub
‘-----------------------------------------------
‘-----------------------------------------------
‘-----------------------------------------------

 

[roscoe]

Where do you fill the listbox?

 

[roscoe]

I had a whole lot more I tried to add and the site said I waited to long to make the edits and dumped everything. Grrr

My list box is imbedded on the sheet using the Forms control. The input is entered as a named range in the format control box in the input range block.

If that helps...

 

[roscoe]

I'm wondering if the problem is loading the form control listbox from a named range vice using an Active X listbox filled via code.

 

[roscoe]

Seems that was the problem. Simply changing to Active-X took less effort that I thought and solved the problem.

Seems odd that there are two different ways to build a listbox that have the same functionality but require different code to use.