Variable listbox for userform

Hi I am after some help trying to make my code a little bit simpler.

In my workbook I currently have 40+ tabs and depending on what I am doing I only want to show some of the tabs, I some code for a listbox and currently I am copying the code for each of the listboxes I have. I have attempted to write some code to make the listbox variable within a loop but it doesnt work, any help would be appreciated.

all my code is on the command button1 in the VBA screen

Try the attached approach - all the listbox choices are intercepted by the Class module.
As you make a selection in the listbox the sheet will unhide/hide.