title: Make a cell scroll/marquee text right to left?
body: <p>I have my cell M2 in Excel which contains a large amount of text. I am trying to figure out a way of making this text scroll right to left continuously.</p>
  
  <p>I have done a lot of looking on the web but all I can find are codes like this which don't make any sense to me and I want to try and make this as simple as possible. Could someone please show me a simple way of getting this to do what I want.</p>
  
  <pre><code>Sub StartMarquee()
  Dim sMarquee As String
  Dim iPosition As Integer
  
  sMarquee = "This is a scrolling Marquee"
  
  With Me
  With .tbMarquee
  .Text = ""
  
  For iPosition = 1 To Len(sMarquee)
  .Text = .Text &amp; Mid(sMarquee, iPosition, 1)
  Application.Wait TimeSerial(Hour(Now()), Minute(Now()), Second(Now()) + 1)
  Next iPosition
  End With
  End With
  
  'Beep
  'Application.OnTime Now + TimeSerial(Hour(Now()), Minute(Now()), Second(Now()) + 2), "StartMarquee"
  End Sub
  </code></pre>