Hi All,
I have used the following macro to save each sheet in my workbook as a new spreadsheet:
Sub SaveSheets()
Dim wb As Workbook
Dim wbNew As Workbook
Dim ws As Worksheet
Set wb = ThisWorkbook
For Each ws In wb.Worksheets
ws.Copy
Set wbNew = ActiveWorkbook
wbNew.SaveAs "C:\" & ws.Name & ".xls"
Next
End Sub
Does anyone know if it is possible to run a macro that will select certain sheets presumably based on a look up table and save them in one new workbook and then select a further group and save them etc?
Thanks,
Paul
I have used the following macro to save each sheet in my workbook as a new spreadsheet:
Sub SaveSheets()
Dim wb As Workbook
Dim wbNew As Workbook
Dim ws As Worksheet
Set wb = ThisWorkbook
For Each ws In wb.Worksheets
ws.Copy
Set wbNew = ActiveWorkbook
wbNew.SaveAs "C:\" & ws.Name & ".xls"
Next
End Sub
Does anyone know if it is possible to run a macro that will select certain sheets presumably based on a look up table and save them in one new workbook and then select a further group and save them etc?
Thanks,
Paul