You are most deserving..............BTW, might it be modified to operate as a
change event macro so it will start and run if the value in A1 = 9 and stop
if it's not........I tried, but was not successful......

Vaya con Dios,
Chuck, CABGx3



"cn.stanton" wrote:

Chuck,

glad you liked it. Fellow postmen's remarks are always appreciated.

Kostis

CLR wrote:
That is totally beyond COOL.............I grabbed it for my goodie-box.

Thanks for posting it Kostis

Vaya con Dios,
Chuck, CABGx3



"cn.stanton" wrote:

Vijay,

the following macro will animate in cell B21 the contents of cell B20.
It will insert some spaces before and after. It will create a marquee
effect.

The loop For j = 1 to 300000 ... Next j is for delay. You can control
the delay by changing the 300000.

Sub ANIMTEXT()
st = " " & Range("B20") & " "
i = 0
While True
Range("B21").Value = Mid(st, i Mod Len(st) + 1, 10)
For j = 1 To 300000
k = k + 1
Next j
i = i + 1
Wend
End Sub

HTH
Kostis Vezerides


Vijay_India wrote:
Hi,

Is is possible to animate text in excel? a crawling footnote or moving header?