Error 424: Object required

[inetkemp]

I get 'Error 424: Object required', and I can´t figure out why. I have a listbox named ListBoxforPrint in the Worksheet (not a userform). SmainMenu is the CodeName of the sheet. Can you please help? Tx

Sub PrintSelected() 'Print the selected sheets from a multiSelect listbox
Dim i As Long
Dim Msg As String


delOldPrintList
listNo = 1

SMainMenu.Activate
With SMainMenu.ListBoxforPrint
For i = 0 To .ListCount - 1

If .Selected(i) Then
listNo = listNo + 1
SSysSheet.Cells(listNo, 6).Value = .List(i)
MyShName = SSysSheet.Cells(listNo, 6).Value
Worksheets(MyShName).PrintOut
End If
Next i
End With

If listNo = 1 Then
Msg = "No items selected to print"
MsgBox Msg
End If

End Sub

 

[VoG]

Perhaps

With SMainMenu.ListBoxes("ListBoxforPrint")

 

[inetkemp]

tx Peter. Its working now, but then I get the next error
runtime error 1004
unable to get the selected property of the Listbox class

 

[inetkemp]

this error occurs in the line
If .Selected(i) Then

 

[VoG]

A Form control ListBox items count starts from 1. This worked for me

Sub atest()
Dim i As Long
With ActiveSheet.ListBoxes("List Box 1")
    For i = 1 To .ListCount
        If .Selected(i) Then MsgBox i
    Next i
End With
End Sub

 

[inetkemp]

trying that gives
run-time error 104
unable to get the listboxes property of the worksheet class

 

[Norie]

Try this:

Sub PrintSelected()    'Print the selected sheets from a multiSelect listbox
Dim I As Long
Dim Msg As String
Dim lst As Object
 
    listNo = 1
    Set lst = SMainMenu.OLEObjects("ListBoxforPrint").Object
    
    With lst
        For I = 0 To .ListCount - 1
            If .Selected(I) Then
                listNo = listNo + 1
                SSysSheet.Cells(listNo, 6).Value = .List(I)
                MyShName = SSysSheet.Cells(listNo, 6).Value
                Worksheets(MyShName).PrintOut
            End If
        Next I
    End With
    If listNo = 1 Then
        Msg = "No items selected to print"
        MsgBox Msg
    End If
End Sub

 

[inetkemp]

Hi Norrie

At

Set lst = SMainMenu.OLEObjects("ListBoxforPrint").Object

i get

runtime error 1004
Method 'OLEObjects' of object'_Worksheet' failed

 

[Norie]

How have you created this listbox?

The code I posted is for an ActiveX listbox not a Forms listbox.

I've tried various things to get Selected with the latter but nothing has worked, so far.

Have you considered trying an ActiveX listbox?

 

[inetkemp]

Hi Norie
I used the developer tab and dragged the listbox on the worksheet.
in the top left corner I named the sheet
I dont want to use an axtivex control