Excel - Texto que se desplace

existe alguna forma de que en una Celda El texto se desplace automaticamente hacia la izquierda? (tipo carte publicitario)

la verdad que nunca lo vi ni sé para qué puede servir, pero suena interesante...
habría que hacerlo con un timer (obviamente programado en VBA + API)
cuando tenga un rato libre voy a ver qué puedo hacer
si podés dar más detalles mejor...

Saludos desde Baires, JuanC

dejo una versión simple y muy básica...

Option Explicit
Option Private Module

'//By JuanC - 6 de Septiembre de 2007

Private iLen As Integer
Private iCount As Integer
Private bStop As Boolean
Private sCadIni As String

Sub Iniciar()
[A1] = "By JuanC 2007"
sCadIni = [A1]
iLen = Len([A1])
iCount = iLen
bStop = False
Call Play
End Sub

Sub Detener()
bStop = True
End Sub

Private Sub Play()
Application.OnTime Now + TimeValue("00:00:01"), "runn"
End Sub

Sub runn()
With [A1]
If .Value = " " & sCadIni Then
.Value = sCadIni
iCount = iLen
ElseIf iCount = iLen Then
iCount = 0
.Value = Mid(.Value, 2) & " " & Mid(.Value, 1, 1)
Else
iCount = iCount + 1
.Value = Mid(.Value, 2) & Mid(.Value, 1, 1)
End If
End With

If Not bStop Then Call Play
End Sub

Saludos desde Baires, JuanC

muy bueno, era lo que buscaba.
pero noto que a medida que se va repitiendo, se va como "espacionado" el texto,
o sea: en la primer pasada dice "by JuanC"
en la Segunda "B y J u a n C "
en la tercera "B y J u a n c" y asi sucesivamente.
Cual puede ser el problema?
O sea, yo lo unique que hice fue copiar y pegar el codigo en un nuevo Modulo. tengo que hacer algo mas? garcias por ty ayuda

aqui funciona bien...

Igualmente, todo bien, sim ningun problema

Abraham