下記の箇所を次のように変更すると動くと思います。> aaa = Nowaaa = Format(Now, "yyyymmddhhmmss")Nowで日時を受け取るとファイル名称で使用できない文字が入る為だと思います。