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