Excel Animation Macro - Rotating Text

Excel Rotating Text Animation

Shape (WordArt Text) on the worksheet turns 360 degree. In module, our codes that ensure to turn 360 degree :

Sub Animasyon2()
  ActiveSheet.Shapes("WordArt 1").Select
    For i = 1 To 36
    Selection.ShapeRange.IncrementRotation 10#
    DoEvents
  Next i
  [A1].Select
End Sub