Excel Shape Rotation with VBA Code

Hi,

The below code works perfectly to rotate my rectangle shape. However, i have multiple rectangle shapes, and i want to fit all those shape names into this code, please advise.

Sub Rotate()
  
  ' Minimum & maximum angles in degrees
  Const MinAngle& = 51, MaxAngle& = 366
  
  ' Define the rotation ratio from 0 up to 1
  Dim phi&, Ratio#, t!
  
  ' Rotate shape
  With Sheets("Mobile").Shapes("Rectangle 1")
      
    ' Rotate clockwise
    For Ratio = 0.5 To 1 Step 0.02
      ' Calc the rotation angle in degrees
      phi = MinAngle + (MaxAngle - MinAngle) * Ratio
      ' Rotate shape
      .Rotation = phi
      ' Make pause
      t = Timer + 0.01: While Timer < t: DoEvents: Wend
    Next
    
  End With
  
End Sub

Thanks Norie,

It works fine, i just made a small tweak. However, i would like to have this shape rotate on each shape click. Please advise

Sub Rotate1()

Dim arrShapeNames As Variant
Dim I As Long

Const MinAngle& = 51, MaxAngle& = 366

Dim phi&, Ratio#, t!

    arrShpNames = Array("Rectangle 1", "Rectangle 2", "Rectangle 3", "Rectangle 4")

    For I = LBound(arrShpNames) To UBound(arrShpNames)
        With Sheets("Mobile").Shapes(arrShpNames(I))
      
            ' Rotate clockwise
            For Ratio = 0.5 To 1 Step 0.02
                ' Calc the rotation angle in degrees
                phi = MinAngle + (MaxAngle - MinAngle) * Ratio
                ' Rotate shape
                .Rotation = phi
                ' Make pause
                t = Timer + 0.01: While Timer < t: DoEvents: Wend
            Next Ratio
    
        End With
    Next I
End Sub

Genius .. works perfectly. Thanks Norie.