Excel2000のマクロで午前8時00から午後15時10分まで10秒置きに実行したいと考えております。

“色表示”というマクロで５秒ほどで計算できるものです。

Sub OnTimeSamp1()

Dim runtime As Integer
runtime = Second(10)
Do
Application.Ontime EarliestTime:=TimeValue("8:00:00") + runtime _
, Procedure:="色表示", LatestTime:=TimeValue("15:10:00")

runtime = runtime + Second(120)

Loop

End Sub

と書いたのですが、120秒おきにしてもメモリ不足と言われ、かなりＣＰＵに負荷をかけているようです。
解決法を教えてください。