Copy sheet to new workbook

ThisWorkbook.Sheets("Sheet1").Copy
ActiveWorkbook.SaveAs "C:\Target.xlsx", FileFormat:=51
This will automatically create a new workbook called Target.xlsx with the relevant sheet