Dave Peterson Wrote:
Untested.

Maybe have your .onaction point to a macro that's in ThisWorkbook.

..onaction = "'" & thisworkbook.name & "'!RunATest"

Then RunATest could do the real work based on the active workbook's
name.

Option Explicit
sub RunATest()
application.run "'" & activeworkbook.name & "'!ATest"
end subHi Dave,

Very masterfull, works great. Thx Very much.


--
Desert Piranha


------------------------------------------------------------------------
Desert Piranha's Profile: http://www.excelforum.com/member.php...o&userid=28934
View this thread: http://www.excelforum.com/showthread...hreadid=567643