Creating shortcut or toolbar icon for "Insert/Name"

[Frank Kabel]

Hi
assign the following code to a shortcut or button

sub show_name()
application.Dialogs(xlDialogDefineName).Show
end sub

-----Original Message-----
Is there a way to create either a shortcut (ie: ctl + n)

or a toolbar icon for a Menu item that does not appear in
the toolbar Customize/Command/Insert?

I want a Shortcut or tool bar icon for Insert/ Name?

Ideally I would like to go once layer down to
Insert/Name/Define for example?