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