Hi Bob,

With Dave Peterson's suggested method try this code.

Assign this macro to a custom button in your toolbar. Close your VBE
Editor. Create a New workbook & click your custom button. Works in
xl-2000.


Sub ShowCodeName()
Application.VBE.MainWindow.Visible = False
MsgBox ActiveSheet.CodeName
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!