InitialFilename:=Format(Range("A1"), "yyyymmdd")

このような形でいいのでしょうか?