Combine 2 VBA Script's to 1 Command Button

[VinceF]

Greetings,
Hopefully a simple fix.
Is it possible to combine 2 scripts to 1 command button, if so your assistance would be very much appreciated.
Script 1 saves the workbook with the value on the MAIN sheet, in cell AA3
Script 2 adds "1" to the value in cell AA3 when saving and closing the workbook

Script 1
Sub SaveWithTodaysDate()
ActiveWorkbook.SaveAs ("C:\Golf\Indianwood Quota - Skins\Results\" & ThisWorkbook.Sheets("Main").Range("AA3").Value & ".xlsm")
End Sub

Script 2
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Range("AA3") = Range("AA3") + 1
End Sub

Thank You,
VinceF
Excel 2016

 

[Candyman8019]

You could try something like:

Sub SaveWithTodaysDate()
Range("AA3") = Range("AA3") + 1
ActiveWorkbook.SaveAs ("C:\Golf\Indianwood Quota - Skins\Results\" & ThisWorkbook.Sheets("Main").Range("AA3").Value & ".xlsm")
End Sub

 

[VinceF]

Candyman,
Thank you...It was adding 1 to cell AA3 then saving it so I switched the order in the script to save it first then add 1 to cell AA3 and it's working perfectly.
I very much appreciate your expertise....!
Another problem solved by the experts...

Thanks,
VinceF

 

[Candyman8019]

Happy to help