Somewhat Frivolous Graphics Question

I want to make a graphical object rotate 360 degrees, but do it slowly, so that
it appears to be "animated"

I wrote a simple program to do this, but I need help with the area below
that is marked with three asterisks

I am trying to rotate the object 1 degree, pause, then rotate 1 degree and so on.

Here it is………
For RotateVariable = 1 to 360
ActiveSheet.Shapes("Object").Rotation = RotateVariable
' ' ' Some command(s) that would cause the program to pause for perhaps 1/2 a second
Next RotateVariable

I tried putting in a simple loop like:
For Delay = 1 to 10000
Next Delay
But, this does not work the program simply pauses then does the the full 360 degree
rotation. At least that is how it appears to the "naked eye."