Save Workbook With Cell Value

[VinceF]

Greetings...
The below code saves the workbook with todays date. Is it possible and if so what changes would I have to make to the code to save it as a number that I have in a cell.
In the workbook I have a sheet called "Main" and on that sheet in cell "AA3" is a number that changes after each golf round that is played. Ideally I'd like it to save as... "Round (the number in cell AA3)"
For example.... After playing Round 5, it'd be saved as "Round 5" instead of todays date.

Sub SaveWithTodaysDate()
ActiveWorkbook.SaveAs ("C:\Golf\Results\" & Format(Now(), "DD-MMM-YYYY") & ".xlsm")
End Sub

Thanks,
VinceF
Excel 2016

 

[PeteWright]

ActiveWorkbook.SaveAs ("C:\Golf\Results\" & ThisWorkbook.Sheets("Main").Range("AA3").Value & ".xlsm")

If cell AA3 has "Round 5" this code will save the Workbook as "Round 5.xlsm"

 

[VinceF]

Pete, Thank you so much, it works exactly as needed...
VinceF