Adapt from following:
create a userform with 2 controls:
1 commandbutton
1 label (high enough for several lines.. e.g. 64points)
Option Explicit
Private Declare Sub Sleep Lib "kernel32.dll" ( _
ByVal dwMilliseconds As Long)
Const DELIM As String = ","
Dim bEsc As Boolean
Private Sub Shift(s As String)
Dim i&
i = InStr(1, s, DELIM)
s = Mid$(s, i + 1) & DELIM & Left$(s, i - 1)
End Sub
Private Sub CommandButton1_Click()
bEsc = True
End Sub
Private Sub UserForm_Activate()
Dim s$
bEsc = False
s = ",,,,,,Example,Of,A,Rolling,Credits,List,,,,"
On Error GoTo theEnd
Application.EnableCancelKey = xlErrorHandler
Do Until bEsc
Label1 = Replace(s, DELIM, vbLf)
Shift s
DoEvents
Sleep 400
Loop
theEnd:
End Sub
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
bEsc = True
End Sub