I use the Application.Caller to return the menu item from a menu containing
sub-menus that each use the same macro function. While the upper level items
still work, there is no longer any differentiation for the sub-menu items.
Code did work for 2003 and earlier but not for 2007. Have I missed something ?

dim c as variant
c= Application.Caller
if c(4)= 0 then ' menu item
'select actual course of action
select case c(1)
case 1
case 2
case else
end select
elseif c(4) = 11 then ' 11th item in menu is a sub-menu
'select actual course of action for sub-menu
select case c(1)
case 1
case 2
case else
end select
endif

TIA

I don't use XL2007, but the "ActionControl" property may still work.
Give it a try.
--
Jim Cone
San Francisco, USA
http://www.realezsites.com/bus/primitivesoftware
(Excel Add-ins / Excel Programming)




"Kevin Beckham"
wrote in message
I use the Application.Caller to return the menu item from a menu containing
sub-menus that each use the same macro function. While the upper level items
still work, there is no longer any differentiation for the sub-menu items.
Code did work for 2003 and earlier but not for 2007. Have I missed something ?

dim c as variant
c= Application.Caller
if c(4)= 0 then ' menu item
'select actual course of action
select case c(1)
case 1
case 2
case else
end select
elseif c(4) = 11 then ' 11th item in menu is a sub-menu
'select actual course of action for sub-menu
select case c(1)
case 1
case 2
case else
end select
endif

TIA

Thanks Jim

I didn't want to have to set a different ActionContol (and hence different
processing procedure) for each menu item, 30-40 including sub-menus, as the
handling is essentially the same. The code still works for the items on the
menu but not for item on sub-menus, i.e. Caller is broken in 2007

Kevin

"Jim Cone" wrote:


I don't use XL2007, but the "ActionControl" property may still work.
Give it a try.
--
Jim Cone
San Francisco, USA
http://www.realezsites.com/bus/primitivesoftware
(Excel Add-ins / Excel Programming)




"Kevin Beckham"
wrote in message
I use the Application.Caller to return the menu item from a menu containing
sub-menus that each use the same macro function. While the upper level items
still work, there is no longer any differentiation for the sub-menu items.
Code did work for 2003 and earlier but not for 2007. Have I missed something ?

dim c as variant
c= Application.Caller
if c(4)= 0 then ' menu item
'select actual course of action
select case c(1)
case 1
case 2
case else
end select
elseif c(4) = 11 then ' 11th item in menu is a sub-menu
'select actual course of action for sub-menu
select case c(1)
case 1
case 2
case else
end select
endif

TIA