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