Преди време имах подобен проблем, дето го реших по следния начин (когато имам &):
Кода:
ActiveWorkbook.SaveAs Filename:= _
"D:\Проверки\2012\" & "Проверки за периода от" & Worksheets("Проверки"). range("A1").value & ".xls", FileFormat _
:=xlNormal, Password :="", WriteResPassword:="", ReadOnlyRecomended:= _
False, CreateBackup:=False

пробвай да го преработиш на:

DIM S as string

s="D:\Проверки\2012\" & "Проверки за периода от" & Worksheets("Проверки"). range("A1").value

s=s& ".xls"

ActiveWorkbook.SaveAs Filename:= s , FileFormat _
:=xlNormal, Password :="", WriteResPassword:="", ReadOnlyRecomended:= _
False, CreateBackup:=False

Нещо при мене с 2 амперсанда се сгъбясва...Дали да е от версията на делфи - крадена - недокрадена...Ама тва за българина и телта е верно да знаш!