Macro to save specific worksheet as a new workbook-
Sub save_specific_worksheets_as_new_workbook()
Dim wk As Worksheet
Dim shtnames()
shtnames = Array("Sheet1", "Sheet2", "PPT") ' ADD SHEET NAMES
' loop through each worksheet
For Each wk In ThisWorkbook.Worksheets
For i = LBound(shtnames) To UBound(shtnames)
If wk.Name = shtnames(i) Then
' save it in new workbook
wk.Copy
' save the new workbook with sheet name
ActiveWorkbook.SaveAs ThisWorkbook.Path & "\"& wk.Name & VBA.Format(VBA.Now, "_ddmmyyyy_hhmmss") & ".xlsx"
' close the newly created workbook
ActiveWorkbook.Close
Exit For
End If
Next
Next
End Sub
Sub save_specific_worksheets_as_new_workbook()
Dim wk As Worksheet
Dim shtnames()
shtnames = Array("Sheet1", "Sheet2", "PPT") ' ADD SHEET NAMES
' loop through each worksheet
For Each wk In ThisWorkbook.Worksheets
For i = LBound(shtnames) To UBound(shtnames)
If wk.Name = shtnames(i) Then
' save it in new workbook
wk.Copy
' save the new workbook with sheet name
ActiveWorkbook.SaveAs ThisWorkbook.Path & "\"& wk.Name & VBA.Format(VBA.Now, "_ddmmyyyy_hhmmss") & ".xlsx"
' close the newly created workbook
ActiveWorkbook.Close
Exit For
End If
Next
Next
End Sub