VBAのバッチ処理で途中経過を確認したいとき、以下の処理をよく使います。 １．ソース If ins_cnt < 5 Or (ins_cnt Mod 500) = 0 Then If run_flgz = 0 Then MsgBox (ins_cnt & " " & 管理番号 & "：" & ID1 & " 追加成功") End If End If