[code] Dim wb As Workbook
Sheets("Output").Copy Set wb = ActiveWorkbook With wb .SaveAs ThisWorkbook.Path & "\ - Recon_Output_ " & Format(Date, "yyyymmdd") .Close False End With
End Sub [/code]
In your example, you could loop through the names of the sheets, or a list of names from cells, or just hardcode them into the vba.
@NotThamesWater started
London Fixed Gear and Single-Speed is a community of predominantly fixed gear and single-speed cyclists in and around London, UK.
This site is supported almost exclusively by donations. Please consider donating a small amount regularly.
[code] Dim wb As Workbook
End Sub
[/code]
In your example, you could loop through the names of the sheets, or a list of names from cells, or just hardcode them into the vba.