I did add the part you advised and changed the selection to ChartArea instead of PlotArea, but no success yet.
Code:
With ActiveChart
        .HasTitle = True
        .ChartTitle.Characters.Text = "All Cases"
        .HasLegend = True
        .Legend.Font.ColorIndex = 5
    End With
Code:
.ActiveChart.ChartArea.Select