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

 

[Norie]

You do exactly the same with ActiveX controls.

Why don't you want to use one?

 

[inetkemp]

I was instructed not to use activex controls

 

[Norie]

Well I can't see a way for that code to work with a Forms listbox.

Hopefully I'm missing something really obvious and someone else will spot it.

 

[inetkemp]

tx a lot. great to have someone online trying to solve our problem.

 

[Norie]

I know what it is, or what it's not.

It isn't 0-indexed it's 1-indexed.

This worked, kind of stripped it down a bit though so you'll need to add the rest of your code.

Any problems post back.

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 = Worksheets("Sheet1").ListBoxes("List Box 3")  '.OLEFormat.Object
 
    With lst
        For I = 1 To .ListCount
            If .Selected(I) Then
                Debug.Print .List(I)
            End If
 
 
        Next I
    End With
 
End Sub

PS You can use the code name, it works but I'd tried Worksheets in the above version.

 

[inetkemp]

Thank you! Its running great!