Public WithEvents oChart As Chart
Private Sub oChart_Select(ByVal ElementID As Long, ByVal Arg1 As Long, ByVal Arg2 As Long)
Dim o As Variant
If ElementID = xlSeries And Arg2 > -1 Then
o = Split(oChart.SeriesCollection(Arg1).Formula, ",")
Range(Split(o(2), "!")(1))(Arg2).Select
End If
End Sub
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
If Sh.ChartObjects.Count > 0 Then Set oChart = Sh.ChartObjects(1).Chart
End Sub