Pessoal.

Preciso de uma ajuda para criar uma macro que escolha a cor da legenda do gráfico. Tenho vários gráficos que vou usar aqui como exemplo, nome de funcionários. Em alguns gráficos pode ter Fernando, Fábio, etc, outras pode ter só Fernando. Nem todos os funcionários estão presentes em todos os gráficos.

Preciso que em todos os gráficos o "Fernando" seja da cor vermelha e a "Fábio" em todos os gráficos que ela aparecer seja da cor azul.

Segue abaixo o código que eu já tenho, mas não está dando certo. ;(

Sub macro_grafico()
If ActiveSheet.ChartObjects("Gráfico 20").Activate Then
    ActiveChart.SeriesCollection("Fernando").Select
    With Selection.Format.Fill
        .Visible = msoTrue
        .ForeColor.RGB = RGB(255, 255, 0)
        .Transparency = 0
        .Solid
    End With
ElseIf ActiveChart.SeriesCollection("Fabio").Select Then
    With Selection.Format.Fill
        .Visible = msoTrue
        .ForeColor.RGB = RGB(255, 235, 158)
        .Transparency = 0
        .Solid
    End With
ElseIf ActiveChart.SeriesCollection("Priscilla").Select Then
    With Selection.Format.Fill
        .Visible = msoTrue
        .ForeColor.RGB = RGB(204, 51, 0)
        .Transparency = 0
        .Solid
    End With
ElseIf ActiveChart.SeriesCollection("Bruna").Select Then
    With Selection.Format.Fill
        .Visible = msoTrue
        .ForeColor.RGB = RGB(49, 133, 156)
        .Transparency = 0
        .Solid
    End With
ElseIf ActiveChart.SeriesCollection("Bárbara").Select Then
    With Selection.Format.Fill
        .Visible = msoTrue
        .ForeColor.RGB = RGB(102, 0, 102)
        .Transparency = 0
        .Solid
    End With
ElseIf ActiveChart.SeriesCollection("Julio").Select Then
    With Selection.Format.Fill
        .Visible = msoTrue
        .ForeColor.RGB = RGB(195, 214, 155)
        .Transparency = 0
        .Solid
    End With
ElseIf ActiveChart.SeriesCollection("Henrique").Select Then
    With Selection.Format.Fill
        .Visible = msoTrue
        .ForeColor.RGB = RGB(204, 193, 218)
        .Transparency = 0
        .Solid
    End With
ElseIf ActiveChart.SeriesCollection("Cassiano").Select Then
    With Selection.Format.Fill
        .Visible = msoTrue
        .ForeColor.RGB = RGB(55, 96, 146)
        .Transparency = 0
        .Solid
    End With
ElseIf ActiveChart.SeriesCollection("Leandro").Select Then
    With Selection.Format.Fill
        .Visible = msoTrue
        .ForeColor.RGB = RGB(64, 49, 82)
        .Transparency = 0
        .Solid
    End With
ElseIf ActiveChart.SeriesCollection("Jorge").Select Then
    With Selection.Format.Fill
        .Visible = msoTrue
        .ForeColor.RGB = RGB(33, 89, 104)
        .Transparency = 0
        .Solid
    End With
ElseIf ActiveChart.SeriesCollection("Guilherme").Select Then
    With Selection.Format.Fill
        .Visible = msoTrue
        .ForeColor.RGB = RGB(127, 127, 127)
        .Transparency = 0
        .Solid
    End With
ElseIf ActiveChart.SeriesCollection("Lucas").Select Then
    With Selection.Format.Fill
        .Visible = msoTrue
        .ForeColor.RGB = RGB(119, 147, 60)
        .Transparency = 0
        .Solid
    End With
ElseIf ActiveChart.SeriesCollection("Pedro").Select Then
    With Selection.Format.Fill
        .Visible = msoTrue
        .ForeColor.RGB = RGB(1, 13, 255)
        .Transparency = 0
        .Solid
    End With
ElseIf ActiveChart.SeriesCollection("Sergio").Select Then
    With Selection.Format.Fill
        .Visible = msoTrue
        .ForeColor.RGB = RGB(152, 72, 7)
        .Transparency = 0
        .Solid
    End With
ElseIf ActiveChart.SeriesCollection("Gustavo").Select Then
    With Selection.Format.Fill
        .Visible = msoTrue
        .ForeColor.RGB = RGB(155, 187, 89)
        .Transparency = 0
        .Solid
    End With
ElseIf ActiveChart.SeriesCollection("Daniele").Select Then
    With Selection.Format.Fill
        .Visible = msoTrue
        .ForeColor.RGB = RGB(0, 0, 0)
        .Transparency = 0
        .Solid
    End With
 End If
End Sub

Agradeço muito se puderem ajudar..