VBA - definer data label fra variabel as serienavn i graf.

Hej,

Jeg har brug hjælpe til følgende:

Jeg vil gerne give min graf datalabels for den valgte serie. JEg har defineret en variabel "SeriesLabel" og vil så gerne referere til denne variabel for den pågældende Serie.
Grafen indeholder mange serier og gennemløbes i et "For Each statement"
Dette setup kommer af inspiration fra
http://peltiertech.com/hide-series-data-label-if-value-is-zero/
da jeg gerne vil undgå 0'er og i stedet navngive efter serienavne (men KUN serienavne hvor input <> 0)
Af linket foreslås at man benytter et "costum" number format, men dette vil jeg gerne automatiserer i VBA. Dette med variablen "SeriesLabel"

VBA:
(Som koden er nedenfor kommer alle mine serier til at hedde SeriesLabel og altså ikke den text string variablen samler op i "SeriesLabel = sorucerange.Offset(-1, 0).Value"

VBA kode:
For Each oChart In ActiveSheet.ChartObjects
For Each MySeries In oChart.Chart.SeriesCollection
  SeriesLabel = SourceRange.Offset(-1, 0).Value
  MySeries.ApplyDataLabels
  MySeries.DataLabels.Select
  Selection.NumberFormat = """SeriesLabel"";;;"
Next MySeries
Next oChart

På forhånd tak
Jonas