Apologies, I've got it to work now. when you want it to stop, do you just
Escape? It 'locks' the rest of the worksheet whilst it is running.

Louise

"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?