>>769
最小限しか書いてないので自分で手直ししてほしいけどこんなのはどうでしょう
１．クラスモジュールを追加する
２．クラスモジュールに下記を実装する（チャートのイベントを実装）
Public WithEvents myChart As Chart

Private Sub myChart_Select(ByVal ElementID As Long, ByVal Arg1 As Long, ByVal Arg2 As Long)
If ElementID = xlSeries Then
Debug.Print myChart.SeriesCollection(Arg1).Name
End If
End Sub
３．ThisWorkbookに下記を実装する（クラスにチャートを紐づける）
Private myClass1 As New Class1

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
If ActiveSheet Is Nothing Then

Exit Sub
End If
If ActiveSheet.ChartObjects.Count = 0 Then

Exit Sub
End If
Set myClass1.myChart = ActiveSheet.ChartObjects(1).Chart
End Sub