Diagramm-Legende per VBA ändern

ich erstelle per VBA ein Diagramm. Jedoch sind nicht immer in jeder Zeile der Datentabelle auch Werte vorhanden. Jetzt hätte ich gerne das bei so einem Fall auch die jeweilige Beschriftung in der Legende nicht sichtbar ist. Wie könnte ich sowas lösen ?
Hab's mit
ActiveChart.Legend.LegendEntries(index).LegendKey.Delete
probiert aber das Problem ist das es immer andere Zeilen sein können, in der keine Werte auftreten und daher immer andere Legendeneinträge entfernt werden müssen, und da ist der Index ja immer anders :-(