VBA: hvis dataserie eksisterer i pivotgraf

Hej Eksperter

Jeg har forgæves forsøgt at afsøge www for en løsning på dette, men uden held.

Jeg kører excel 2010 engelsk version.

Jeg har en simpelt VBA kode som i en pivotgraf formaterer en dataserie der hedder "Forecast", så den altid har den samme farve:

ActiveChart.SeriesCollection("Forecast").Select
    With Selection.Format.Fill
        .Visible = msoTrue
        .ForeColor.ObjectThemeColor = msoThemeColorAccent3
        .ForeColor.TintAndShade = 0
        .ForeColor.Brightness = -0.25
        .Transparency = 0
        .Solid
    End With

Men da jeg har nogle situationer hvor jeg filtrerer min pivotgraf så der ikke findes en dataserie der hedder "Forecast", så får jeg en fejl når jeg afspiller koden - selfølgelig fordi at den ikke kan "ActiveChart.SeriesCollection("Forecast").Select
".

Hvordan tilføjer jeg i koden, at ovenstående kun skal ske hvis "ActiveChart.SeriesCollection("Forecast")" eksisterer i grafen?

mvh
Line