I notice that clicking on a series shows the range in the Formula Box. Don't see a way yet to get it in a message box
How about
 
MsgBox ActiveChart.SeriesCollection(1).Name