Hello I was experimenting with changing graph data in VBA and could do with
some help.

Easy enough to do by selecting the graph in question as in fist example
below.
Is there a way of doing it with the With command (which i gather is much
more processor efficient - an important factor in this scenario). My
attempts below, the first way works fine but the second way I'm struggling
on syntax

Any advice gratefully received

tp

Sub changegraph()

ActiveSheet.ChartObjects("Chart 1").Activate
ActiveChart.PlotArea.Select
ActiveChart.SeriesCollection(2).Values = "=WMP!$BH$4:$BH$304"
End Sub


Sub changegraph2()

With Sheets("sheet1").ChartObjects("Chart 1")
.PlotArea.Select '(I tried omitting this line but no good)
.SeriesCollection(2).Values = "=WMP!$BH$4:$BH$304"
End With
End Sub