Looping through controls on a worksheet to set control icons

I am trying to loop through controls on a worksheet to set the mouse icon. It works fine on a form like this:

Please Login or Register  to view this content.

but adapted for a worksheet, nothing happens:

Please Login or Register  to view this content.

Any ideas why? The controls are Active X command buttons. Thanks!

It didn't work because they are Active X command buttons. The shape property is for Form controls. Note: The TypeName is not going to work as you had it. I put in a Debug.Print line so you can see what the type actually comes up as.

Please Login or Register  to view this content.

Thanks for the reply and the help, much appreciated. The two untested lines didn't work - they came up with "object doesn't support this property or method'. Also, the controls are not numbered - I've given them names, but they still have "CommandButton" in the name. I'll keep at it for a while...