opa farofa...
Veja se é isso que vc quer:

Em um módulo, insira

Sub Texto_Animado()
Dim sTxt As String
Dim x As Integer, y As Integer
Dim Start, delay

sTxt = "PLANILHANDO - MELHOR SITE DE EXCEL DO BRASIL" ' Insira seu texto aqui

For y = 1 To 20
    For x = 1 To 40
        Start = Timer
        delay = Start + 0.15
        Do While Timer < delay
            [a1] = Space(x) & sTxt      'Aqui a celula onde começara o texto
            DoEvents
        Loop                            'Loop
        DoEvents
        Start = Timer
        delay = Start + 0.15
    Next x
Next y

[g1] = "" ' Aqui ate onde o texto vai e depois recebe o reset
End Sub

No evento open da pasta de tabalho insira

Private Sub Workbook_open()
Texto_Animado
End Sub

era isso... e como faço para abrir apenas em uma planilha, do jeito que está abre em todas?