Hi

Why don't you simply set the PrintObject properties to False ? (Properties
pane, or Rightclick, Format if they are from the Forms controls).

If not, this may or may not be a start, depending on what else your sheets
contains:

Sub test()
Dim L As Long
For L = 1 To Sheets(1).DrawingObjects.Count
MsgBox Sheets(1).DrawingObjects(L).Name
Next
End Sub

HTH. Best wishes Harald


"Memphis" wrote in message
...
I have on average 10 option buttons along with check boxes per each
worksheet.
They are currently colored to blend with the sheet colors (2 to three
different colors per sheet).
I am adding a command button on the 1st sheet (FaceSheet) to strip all
color
from all worksheets and to also strip the color of all option buttons and
check boxes. Is there a way to write some code that will select all option
buttons and check boxes on all worksheets and strip them of their color?
(Currently I am envisioning a super long array with all option buttons and
check box names, I would like to avoid this).
Also after the print action, I would like all worksheets and option
buttons
and check boxes to get their colors back to the same colors as before.

Thank you