Selecting sheets to copy/paste values to a new workbook

I took a version of a John Walkenbach ready to use macro, and I want to alter it a bit. He created this one that makes a dialog box, and you select pages to print. However, in this case, I want to select pages that I want to make a copy and send to a new sheet. All of the selections would be on one new workbook.

The following is the code...

Please Login or Register  to view this content.

Where I put the text in bold, is where it activates the sheet that was selected. However as it loops through the list, it will activate and de-activate the sheets, so at the end, only one is selected. I tried a few things, and I am not sure how to get it to hold each selected one, so that all 3 or 4 or whatever sheets are capable of being copied.

Any ideas?

Thanks,

Gary Harding

any help would be appreciated. Thanks