If you don't have any duplicate names:
Dim srs As Series
If TypeName(Selection) = "Series" Then
Set srs = Selection
MsgBox "You've selected the series '" & srs.Name & '"."
End If
- Jon
-------
Advanced Excel Conference - June 17-18 2009 - Charting and Programming
http://peltiertech.com/Training/2009-06-ACNJ/AdvExcelConf200906ACNJ.html
Jon Peltier, Peltier Technical Services, Inc.
http://PeltierTech.com/WordPress/
_______