Hidden/Visible sheets in listbox

Hi,
I'm trying to create a userform that allows the user to swap sheets from visible to hidden status. I've made it to the point where all the sheet names are populated based on their current status in their respective listbox, but I am stuck on using the results of any swaps to newly set their visible property. the code I have in the userform is as follows:

Please Login or Register  to view this content.

The sheets are added to the correct column based on the current visible/hidden status with the following code in Module1

Please Login or Register  to view this content.

The part I'm having trouble with is taking the names of the sheets that are in the list and setting them to visible/hidden based on their new status (the part of the code that is commented out in the first code section). I've attached a sample workbook with the code as it currently exists.

Try this in place of your OKButton_Click() Sub

Please Login or Register  to view this content.