Export Sheet to new Workbook using VBA

I have a workbook that i want to remain readonly. but i want to have the ability to export 3 of the tabs as seperate workbooks.

this code works but it exports ALL tabs to a seperate workbook, i would like to only export 3 specific tabs.

Please Login or Register  to view this content.

Please Login or Register  to view this content.

This line is picking up all sheets, but can be modified

INTO

Please Login or Register  to view this content.

You need to change the name of sheet1,2 and 3 to your needs.