◆実行時間を表示する

  いろいろなマクロを作り始めた頃は、CPU のスピードが遅くて、
  ちょっとしたマクロでも、1分〜2分はかかっていました。

  重たいマクロを走らせると10分以上はざらで、その頃に挿入していた
  実行時間を表示するルーチンです。

  少しでも早く動作させるためにはどうすれば良いかも気になるところです。

Dim StartTime, StopTime As Variant

'ここから実行時間のカウントを開始します
StartTime = Time


'
'    仕事をさせたいマクロ
'


StopTime = Time
StopTime = StopTime - StartTime

MsgBox "所要時間は" & Minute(StopTime) & "分" & _
                                  Second(StopTime) & "秒 でした"