Or even directly through the OptionButtons collection:

ActiveSheet.OptionButtons("OptionButtonName").Valu e=xlOn 'xlOff



wrote:

Dave,
Thanks, that works great! I didn't want to force a custom "copy"
procedure on the user, but the optionbuttons from the forms toolbar
seem to work just fine! You simply need to access them a little
differently, as
ActiveSheet.Shapes("buttonName").ControlForrmat.Va lue=xlOn|xlOff and
the problem is solved.

Thanks again!

--

Dave Peterson