Try this,

Sub test()
MsgBox ActiveChart.Index
MsgBox ActiveSheet.Index
End Sub

If it is embeded on the sheets
Sub test1()
MsgBox ActiveSheet.ChartObjects("Chart 1").Index
End Sub


Regards,
Shah Shailesh
http://members.lycos.co.uk/shahweb/


*** Sent via Developersdex http://www.developersdex.com ***
Don't just participate in USENET...get rewarded for it!