I wrote an event for Save As menu , it works fine for Office 2003, but its not working for Office 2007 (1 line of code below)

If evtFileSaveAs Is Nothing Then Set evtFileSaveAs = 'Application.CommandBars("Menu Bar").FindControl(, 748, , True, True)

I am expecting doubt like Save As Menu Id is not 748.

Is there any solution for this

Thanks in advance and help appriciated.