checkboxes are not visible on worksheet when rows are unhidden

[Tanner_2004]

Hi All:

I know the checkboxes are all there, they are just not visible any more. The code below worked for a while then stopped. It hides (and unhides the rows), but doesn't allow me to see the checkboxes when the rows that the checkboxes are floating on top of are unhidden. I would appreciate any help that will allow me to see the checkboxes when the rows are unhidden and hide the checkboxes when the rows are hidden.

Thank you very much.



Rows("8:19").EntireRow.Hidden = False
'This line of code displays checkboxes 1 through 10 as part of
' cbFunctionGroup
ActiveSheet.Shapes.Range(Array("cbFunctionGroup")).Visible = msoTrue


Else

Rows("8:19").EntireRow.Hidden = True
'This line of code hides checkboxes 1 through 10 as part of
' cbFunctionGroup
ActiveSheet.Shapes.Range(Array("cbFunctionGroup")).Visible = msoFalse