Pete
I think you are overcomplicating things.

Private Sub ToggleButton1_Change()
ActiveSheet.Shapes("Rectangle 3").Visible = Not (ActiveSheet.Shapes("Rectangle
3").Visible)
End Sub

will probably do what you want.

Good luck.

Ken
Norfolk, Va