VBA Code to Export a Worksheet As Its Own Workbook In a Specific Destination

[Jiraya_00]

Hello Everyone,

I have a workbook with multiple worksheets and I would like to export a particular worksheet as its own workbook in a specific destination (say my Downloads folder). Afterwards, I would like to delete that exported worksheet from my current workbook. Can anyone help me write a VBA code that would achieve these two tasks?

 

[dermie_72]

you could try this, however you would need to change the location of saving and you will need a way to rename the file if you have the same sheet name each time.

Sub Jiraya_00()

Dim sv As String

sv = ActiveSheet.Name

ActiveSheet.Select
ActiveSheet.Move
ChDir "C:\TEST"
ActiveWorkbook.SaveAs Filename:="C:\TEST\" & sv & ".xlsx" _
        , FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
End Sub