Sub Sheet_SaveAs()
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
Do more with
Application.DisplayAlerts = False
With wb
.SaveAs ThisWorkbook.Path & "\ - Recon_Output_ " & Format(Date, "yyyymmdd")
.Close False
End With
Application.DisplayAlerts = True
With wb
.SaveAs ThisWorkbook.Path & "\ - Recon_Output_ " & Format(Date, "yyyymmdd"), xlOpenXMLWorkbookMacroEnabled
.Close False
End With
Premium Content
You need an Expert Office subscription to comment.Start Free Trial