You are reading a single comment by @NotThamesWater and its replies. Click here to read the full conversation.
  • [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.

About