The macro runs just fine. The problem is with your logic: you loop through all Buttons, but there are no Buttons on the worksheet; what you have there is Shape objects with various names, some of which begin with 'Button'.

PS: Kindly update your userprofile to reflect the Operating System and Office version you're actually using; I seriously doubt it's Windows XP & Office 2003. And, for future reference, please also post threads in the appropriate forum - in this case the Excel Programming forum, to which I have now moved this thread.

__________________
Cheers,
Paul Edstein
[Fmr MS MVP - Word]