VBA Modify Chart .FullSeriesCollection() - Optimize Code

[bs0d]

I'm using VBA to re-reference the max row reference for series on a chart in my 2013 Excel workbook.

This code works:

    Sheets("DASHBOARD").ChartObjects("Hist").Activate
    ActiveChart.ChartArea.Select
    ActiveChart.FullSeriesCollection(1).Values = "=Data!$H$2:$H$" & FinalRow
    ActiveChart.FullSeriesCollection(2).Values = "=Data!$I$2:$I$" & FinalRow
    ActiveChart.FullSeriesCollection(3).Values = "=Data!$J$2:$J$" & FinalRow
    ActiveChart.FullSeriesCollection(4).Values = "=Data!$K$2:$K$" & FinalRow

However, If possible, I don't want to activate and select the chart through the process. Here is my stab at it, which yields an error:

    With Sheets("DASHBOARD").ChartObjects("Hist").ChartArea
        .FullSeriesCollection(1).Values = "=Data!$H$2:$H$" & FinalRow
        .FullSeriesCollection(2).Values = "=Data!$I$2:$I$" & FinalRow
        .FullSeriesCollection(3).Values = "=Data!$J$2:$J$" & FinalRow
        .FullSeriesCollection(4).Values = "=Data!$K$2:$K$" & FinalRow
   End With

Is it possible to modify the chart series as I'm attempting without actually selecting the chart? If so, I'd like to see how. Thanks,

 

[bs0d]

Any thoughts? Why wouldn't WITH work here? Is it possible to avoid activating the chart? I'd like to avoid activating it which brings the chart to focus in the workbook after the code executes.

Thanks

 

[bs0d]

I think I found the solution. adding ".chart" after .ChartObjects() seems to do the trick.

    With Sheets("DASHBOARD").ChartObjects("Hist").Chart.ChartArea
        .FullSeriesCollection(1).Values = "=Data!$H$2:$H$" & FinalRow
        .FullSeriesCollection(2).Values = "=Data!$I$2:$I$" & FinalRow
        .FullSeriesCollection(3).Values = "=Data!$J$2:$J$" & FinalRow
        .FullSeriesCollection(4).Values = "=Data!$K$2:$K$" & FinalRow
   End With