How to activate module my clicking x to save as new name and close

[shelbsassy]

Hello,
I am very new to VBA and I have a module to save a file with a static name and the current date. I want to be able to click the red x and run the module. Is there a way to do that? Currently I am using a shortcut to run the module but when I click the x I would like to activate the module to save the file with a new name.

My code is
Sub filesave()
ActiveWorkbook.SaveAs ("L:\Regulatory Reporting\LOBs\MLTSS\MLTSS Reports Deliverables\MLTSS REPORT FOLDERS\Ad Hoc\Incomplete Assessments\Reports\Incomplete Assessments 2023\SNP_MLTSS_Incomplete_Assessments_" & Format(Now(), "MMDDYYYY") & ".xlsm")
End Sub

Thank you for any help.

 

[Candyman8019]

I believe you're looking for the BeforeClose event. Try putting this in 'ThisWorkbook' sheet.

Private Sub Workbook_BeforeClose(Cancel As Boolean)
ActiveWorkbook.SaveAs ("L:\Regulatory Reporting\LOBs\MLTSS\MLTSS Reports Deliverables\MLTSS REPORT FOLDERS\Ad Hoc\Incomplete Assessments\Reports\Incomplete Assessments 2023\SNP_MLTSS_Incomplete_Assessments_" & Format(Now(), "MMDDYYYY") & ".xlsm")
End Sub

 

[shelbsassy]

I believe you're looking for the BeforeClose event. Try putting this in 'ThisWorkbook' sheet.

Private Sub Workbook_BeforeClose(Cancel As Boolean)
ActiveWorkbook.SaveAs ("L:\Regulatory Reporting\LOBs\MLTSS\MLTSS Reports Deliverables\MLTSS REPORT FOLDERS\Ad Hoc\Incomplete Assessments\Reports\Incomplete Assessments 2023\SNP_MLTSS_Incomplete_Assessments_" & Format(Now(), "MMDDYYYY") & ".xlsm")
End Sub

That worked perfectly! THANK YOU!

 

[Candyman8019]

You're very welcome!