Sub RotateAllShapes()
    Dim shp As Shape
    Dim i As Integer
    For i = 1 To 36
        For Each shp In ActiveSheet.Shapes
            shp.IncrementRotation 10
        Next shp
        
        DoEvents
        Application.Wait [Now() + "0:00:00.01"]
    Next i
End Sub