ok.. this took a bit of work to figure out... but I got it

add this code to the sheet that contains the chart
switch to another sheet.... then back to the sheet
now click one of the bars..
VB Code:
  1. Dim WithEvents cht As Chart
  2.  
  3. Private Sub cht_Select(ByVal ElementID As Long, ByVal Arg1 As Long, ByVal Arg2 As Long)
  4.     Select Case Arg1
  5.         Case 1
  6.             MsgBox "Picked series 1"
  7.         Case 2
  8.             MsgBox "Picked series 2"
  9.         Case Else
  10.             MsgBox "Picked series " & Arg1
  11.     End Select
  12.            
  13. End Sub
  14.  
  15.  
  16. Private Sub Worksheet_Activate()
  17.     Set cht = ChartObjects(1).Chart
  18. End Sub