Excel2019で、
.ActiveWorkbook.SaveAs FileName:=FilePass, FileFormat:=51

ってやると、

'Book1' の変更内容を保存しますか?
ってダイアログが出て保存できないね。
どうしたらいいだろう?お手上げです。