[vba]
' Creates a temporary base file name.
Const FILE_NAME As String = _
"S:\Open Provisioning Reports\<date> Open Provisioning - Pkg.xls"
ActiveWorkbook.SaveAs _
Filename:=Replace(FILE_NAME, "<date>", Format(Date, "yymm yyyy")), _
FileFormat:=xlNormal
ActiveWindow.Close
[/vba]