Option Explicit 
 
Private Sub Worksheet_Change(ByVal Target As Range) 
     '   Credit to Aaron Blood as the originator of this code:
     '   http://www.xl-logic.com/pages/charts.html (DynamicChart3.zip)
    Dim oChrt As ChartObject 
    Dim szSeries As String 
     
     
    On Error GoTo ErrExit 
    Application.EnableEvents = False 
     
    Set oChrt = ActiveSheet.ChartObjects(1) 
     
    If Not oChrt Is Nothing Then 
         
        For Each oChrt In ChartObjects 
             
             
            szSeries = oChrt.Chart.SeriesCollection(1).Formula 
             
            szSeries = Left(szSeries, InStrRev(szSeries, ",") - 1) 
             
            szSeries = Right(szSeries, (Len(szSeries) - InStrRev(szSeries, ","))) 
             
            oChrt.Chart.SetSourceData Source:=Range(szSeries).CurrentRegion 
             
             
        Next oChrt 
         
    End If 
     
    Set oChrt = Nothing 
ErrExit: 
    Application.EnableEvents = True 
End Sub