Save specific sheet to new workbook without opening - Excel

Hi Experts,

I'd like to know if there is a way to copy an Excel sheet to a new workbook without having to open it? My source file is a xlsm and when I run my macro, a pop-up keep appearing. Is there a solution to this?

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

Select all Open in new window

Thank you.
pop-up.png