Option Explicit

Function RefreshChart(ChartName, ShName$)
    Static LastName$, Ref$
            
    If ShName <> LastName Then
        Dim Series(2), rng As Range, col As Range, i%
        
        LastName = ShName
        
        On Error Resume Next
        With Worksheets(ShName)
            
            With .UsedRange
            
                Set rng = Intersect(.Offset(2), .Cells)
                Ref = "#" & rng.Address(, , , 1)
                
            End With
            For Each col In .Columns("B:D").Columns
                
                Series(i) = Intersect(rng, col).Address(1, 1, xlA1, 1)
                i = i + 1
                
            Next
            
        End With
        
        With Application
            .ScreenUpdating = 0: .EnableEvents = 0
            
            With Evaluate(ChartName).Chart
                
                .FullSeriesCollection(1).Formula = "=SERIES(,," & Series(2) & ",1)"
                .FullSeriesCollection(2).Formula = "=SERIES(," & Series(0) & "," & Series(1) & ",2)"
                .Refresh
                DoEvents
                
                .Parent.TopLeftCell.Select
                
            End With
            
            
            .ScreenUpdating = 1: .EnableEvents = 1
        End With
        
    End If
    RefreshChart = Ref
End Function

Function SheetName(n)
    If n > 1 And n < Sheets.Count Then _
        SheetName = Sheets(n).Name _
    Else _
        SheetName = [NA()]
End Function

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
    If Sh Is Sheets(1) Then ActiveCell.Calculate
End Sub