Takže takto napsané to funguje, stačilo dát do jedné řádky...
If List2.Range("C14") = "" Then ActiveSheet.ChartObjects("Graf 4").Visible = False Else: ActiveSheet.ChartObjects("Graf 4").Visible = True
Takže takto napsané to funguje, stačilo dát do jedné řádky...
If List2.Range("C14") = "" Then ActiveSheet.ChartObjects("Graf 4").Visible = False Else: ActiveSheet.ChartObjects("Graf 4").Visible = True