vbaで名前を付けて保存というタイトル名のウィンドウを捕まえて、任意の場所にファイルを保存する

vbaで「名前を付けて保存」というタイトルのウィンドウを捕まえるには、AppActivate "名前を付けて保存"と書く。
そして、保存先を自由に設定するには、フルパスのファイル名で保存すれば良いのである。