Copy multiple sheets to folder from workbook

[Stevie p]

Hi, i have this code that allows me to copy sheet2 to a folder on cdrive from my workbook and name the sheet with the date and time. How could i modify this code to copy sheet2 and sheet4 to the same wookbook.

Sub test()
Sheets("Sheet2").Copy
With ActiveWorkbook
.SaveAs Filename:="C:\reports log\" & Format(Date, "dd-mm-yyyy") & ".xls"
.Close
End If
End Sub

 

[VoG]

Try

Sub test()
Sheets(Array("Sheet2", "Sheet4")).Copy
With ActiveWorkbook
    .SaveAs Filename:="C:\reports log\" & Format(Date, "dd-mm-yyyy") & ".xls"
    .Close
End If
End Sub

 

[Norie]

Perhaps this.

Sheets(Array("Sheet2", "Sheet4")).Copy

 

[Stevie p]

Thank you once again. Super quick response
Regards Stevie p.