Hi,
I am trying to use scrolling text in a cell.
I have looked at a few threads and they are talking they say to do stuff like this (at the bottom of this post).
However I have no idea where to put strings like that.
I opened up VB and pasted this in but it wouldn't work.
I have created an object and tried to run a macro but again it won't work.
Is there any way I could get a step-by-step as to how to have scrolling text in a cell or an object in Excel?
As dumbed down as possible!
Thanks so much.
Sub MG26May35 Dim st As String, olet As Integer, txt As String Dim L As Integer, S As String, Sl As Integer Dim Pausetime, Start, finish, n As Integer Pausetime = 0.2 For n = 1 To 2 With ActiveSheet.Shapes("Oval 8") .OLEFormat.Object.Font.Bold = True S = "This is the Sentence, will it ever end" Sl = Len(S) st = StrReverse(S) & Space(42) For olet = 1 To Len(st) DoEvents Start = Timer Do While Timer < Start + Pausetime Loop txt = " " & Mid(st, olet, 1) L = L + Len(txt) .TextFrame.Characters(1, 1).Text = txt If L >= Sl + 5 Then .TextFrame.Characters(Sl + 5, 1).Text = "" End If Next olet End With Next n End Sub