Create a shape and rename the "WordArt 1" to what ever your shape is named
This code will make the shape run from right to left when the sheet is activated.
Code Follows:
Private Sub Worksheet_Activate()
Dim x As Single, y As Single, t As Single, i As Integer, n As Integer
With ActiveSheet.Shapes("WordArt 1")
.Top = 100
.Left = 400
n = 20
Wait 0.3
For i = 1 To n
.Left = 400 + (72.75 - 400) * i / n
Wait 0.1
Next i
End With
End Sub
Sub Wait(tSecs As Single)
Dim t As Single
t = Timer + tSecs
Do While Timer < t
DoEvents
Loop
End Sub