Hi,

Maybe you want to use the Value rather than whether the control is enabled
or not.

Sub ChangeChartVisibility()
Dim tc As Object, cb As Object
Set tc = Application.ActiveSheet.ChartObjects("Chart 3")
Set cb = Application.ActiveSheet.MsForms.CheckBox("VolumeIn dicators")

tc.Visible = cb.value

End sub

Cheers
Andy

--

Andy Pope, Microsoft MVP - Excel
http://www.andypope.info
"R Tanner" wrote in message
...
Hi,

I'm trying to base the visibility of a chart off of whether a specific
checkbox is selected or not. What should I be doing differently in my
code?

Sub ChangeChartVisibility()
Dim tc As Object, cb As Object
Set tc = Application.ActiveSheet.ChartObjects("Chart 3")
Set cb = Application.ActiveSheet.MsForms.CheckBox("VolumeIn dicators")

If cb.Enabled = True Then
tc.Visible = True
Else
If cb.Enabled = False Then
tc.Visible = False
End If


End Sub