Surface Plot Will Not Rotate

Trying to get my surface plot to rotate. Nothing happens. Any ideas from anyone?

Sub Rotate()
Dim spinner As Range
Set spinner = Application.Range("spin")
    ActiveSheet.Shapes("Chart 5").ThreeD.Visible = True
    ActiveSheet.Shapes("Chart 5").ThreeD.RotationX = spinner.Value
Calculate
End Sub

Changing the rotation of the chart will spin the plot area of a 3d surface plot

ActiveSheet.Shapes("Chart 5").Rotation = spinner.Value