M marcus Mar 4, 2010 #2 Hi Bob If by Graphic you mean a chart. Try this it will hide charts on a page if a condition is not true. Take care Marcus Option Explicit Sub VisibleChObj() If Range("B1").Value = 1 Then ActiveSheet.ChartObjects.Visible = True Else ActiveSheet.ChartObjects.Visible = False End If End Sub
Hi Bob If by Graphic you mean a chart. Try this it will hide charts on a page if a condition is not true. Take care Marcus Option Explicit Sub VisibleChObj() If Range("B1").Value = 1 Then ActiveSheet.ChartObjects.Visible = True Else ActiveSheet.ChartObjects.Visible = False End If End Sub