I have recently upgraded to Excel 2007 from Excel 97 and following code is
not working in Excel 2007:

Sub Test()
'Get name of active VB project
MsgBox Application.VBE.ActiveVBProject.Name
End Sub