Excel Animation Macro - Rotating Text

Excel Rotating Text

Shape (WordArt Text) on the worksheet turns 360 degree. Macro codes :

"...

For i = 1 To 36

    Selection.ShapeRange.IncrementRotation 10#
    DoEvents
  Next i
...
"