Make me look like an Excel/VBA Rockstar....

[mdmackillop]

Add this to a standard module and assign it to the scrollbar

Sub ChartUpdate()
Dim Rng As String, Rw As Long
Dim cel As Range
Set cel = Selection
Rw = Range("M1").Value + 2
'Modify data range
Rng = "$C$" & Rw & ":$AL$" & Rw
 
ActiveSheet.ChartObjects("Chart 2").Select
ActiveChart.SeriesCollection(1).Formula = "=SERIES(,,Sheet1!" & Rng & ",1)"
'Return activation to sheet
cel.Activate
End Sub

BTW There is a question on a similar topic here