How to copy one of the worksheets (such as: Sheet2) into another file and saved a disk.

Sub Macro 1 () Sheets ("Sheet2"). Selectcells.SelectionSelection.copy

ChDrive "a" chdir ("a: /") Workbooks.addactiveworkbook.saves ("A: / File") Activeesheet.Pasteend Sub