How do I select more than one sheet and send as workbook

[MWE]

I just want to be able to select the sheets and run the macro

How do you want to select the sheets?

1. by holding down the Cntl Key and clicking on the tab names?
2. by selecting from a form?
3. some other method?

Assuming you wish to use #1, you need to insert a loop that will copy all selected sheets to the target workbook. As an example of processing a selection of multiple worksheets, the following code will display the names for all selected sheets:

Dim ws As Worksheet
For Each ws In ActiveWorkbook.Windows(1).SelectedSheets
        MsgBox ws.Name
    Next ws