How to run macro everytime a shape is moved

This following macro changes color of selected shape if user moves its position.
I assigned it to a button. I have to click on that button every time i move the shape to update the color. How do i do it automatically without using button?

Please Login or Register  to view this content.

there is no way to trap shape selection
the closest you probably could get is to have Onaction
put this macro onto all the shapes and it should update the color once you have moved and then click on it

probably no need to error trap if you are only assigning macro to shapes

Please Login or Register  to view this content.

Thank you humdingaling!!
That is working!!
But Are you u sure there is not any other way? Like creating any event or something?
Actually My application is creating number of rectangle shapes. I used following code to create shape and assigned it to button -

Please Login or Register  to view this content.

Is there any way I assign the code you provided to the shape every time i create it?

to my knowledge there is no "event" for shape selection

you can assign Onaction when you create the shape

Please Login or Register  to view this content.