Save As by date

HaHoBe - I would actually like to pick where I want to save it even though I'll probably end up putting it in the same place every week.

The code I have now is:

Sub SaveAsSat()
    d = Int(Now()) 'todays date without time
    For d = d To d + 1
        ActiveWorkbook.SaveAs Format(d, "Aliant Intraday Report Avaya yyyy-mm-dd")
    Next
End Sub