On Feb 27, 7:21 am, "John Coleman" wrote:
(Untested) Maybe you can try explicitly setting the other graphs to be
invisible

e.g.

If OptionButton1.Value = True Then
ActiveSheet.ChartObjects("wkly_visitors").Visible = True
ActiveSheet.ChartObjects("wkly_sales").Visible = False
ActiveSheet.ChartObjects("wkly_customer").Visible =False
ActiveSheet.ChartObjects("wkly_convrate").Visible = True

obviously, I meant

ActiveSheet.ChartObjects("wkly_convrate").Visible = False