SaveAs function

Hi All,

All help appreciated!

I have a macro with the SaveAs function which works perfectly! However, now I need to add the year to the file name. I would like it to be after the cell range, so I added it to the string. But when I run the macro it doesn’t like it. What am I missing in the macro below?
ActiveWorkbook.SaveAs Filename:= _
"\\XXXXX\XXXXX_XXXXX\QQQ - " & Range("a1") - 2012, FileFormat:=xlNormal, _
Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
CreateBackup:=False

Thanks in advance!