Merge Macro

I need help making this macro work with what i have been using
The current macro is

Please Login or Register  to view this content.

I need this macro to work below only PDF the sheets selected. It is PDFing the entire workbook and not the selected sheets. I tried changing the active workbook to ActiveWindow.SelectedSheets. and that did not work.
I image it needs to be some thing close to that to prevent printing all tabs within workbook.

Please Login or Register  to view this content.

Please anyone that can help it will be greatly appreciated

so i take it there is no way possible to make this work?

ActiveWorkbook changed to activesheet and it works perfectly