Hello,

I want to make a VBA code for printing out sheets that are listed in a ListBox. I've tried the following loop:

For Each ListBoxItem As ListItem In ListBox1.Items
ActiveWorkbook.Sheets(CStr(ListBoxItem)).PrintOut
Next

This however doesn't work, and I don't know why...

Could you help me with this one? Maybe there are multiple faults in the code...

Jeroen