Assign a shape to macro excel 2007

Hi,
I tried several ways as suggested on line to assign a shape to a macro. This can be done interactively, however; there are several hundred assignments to be made over several sheets.
It would be super if I could nail the syntax to just assign one.
Recording this action shows: selection.onaction = "Sheet26.rm221m" ' and that's all.
Several attempts to code this give error message: run time error 438 object doesn't support this property or method
A sub on the active sheet26 containing shape rm221 and macro rm221m
Sheet26.Shapes("rm221").selection.onaction = "Sheet26.rm221m"
Several alterations to the line above were tried, including adding the workbook in the assignment.

How can I assign a macro to a shape in VBA 2007
Thanks,
Keith

Hi Andy,
Thanks for the response. This also fails: runtime error 1004, application-defined or object-defined.
sheet26 is the current-active ws containing macro rm212m and the object rm221. A separate amcro
also on sheet26 tries to make the assignment listed; Sheet26.Shapes("rm221").onaction = "Sheet26.rm221m" .
I also tried many variations of this as suggested on line w/o success.
thanks,
keith

OK
Private room(0 To 300) As Integer
Sub asign_mac()
Sheet26.Shapes("rm221").onaction = "Sheet26.rm221m"
End Sub
Sub rm221m()
Range("i4").Value = Range("k13").Value
Call Sheets("acf").update
End Sub
Sub update()
Call mgrms.gacf("acf", room)
End Sub

note this is part of sheet26 = "acf"
call grms.gacf("acf",room) is module that works and called by other procedures
I can do this assignment interactively and it behaves.
thanks,
Keith

Hmm,
I'm not sure what you're seeking. the code listed is the sample. The xlsm is still small: 180kb. How do I attach it?
thanks,
Keith

Hi,
I cut-paste the few lines of code into new wb, copied rm221 to it and it DOES WORK.
This copied version bypassed module update and mgrms.gacf("acf", room). They also
work but in a way not yet seen, all this re-direction is the root to the problem. I will
take a little more time to better understand it, maybe the active sheet is lost and I need
to replace the references to them.
thanks,
keith

Hi Andy,
Thanks for your patients. I do not see what's wrong. and attached redroof.xlsm
Sheet5 ("addmac") will attach macro to shapes. Basic page with copy from Sheet26 ("acf")

Sheet26 ("acf") sub assign_macro fails. I commented out 'call update' but same result.

Sorry I do not see what's different B/W these two pages.

thanks,
keith

Hi Andy,
Thanks for your reply, got some vb insight to manipulating groups that'll be helpful in this project.
Sheet5(addmac) was initiated in response to your earlier thread response requesting an example. In doing so I learned the syntax you listed did add a macro. This was already tried along with many variations to do same but ended in failure when used on Sheet26(acf) .
Sheet5's code is in Sheet5 and same code exists in sheet26(acf) to add single macro assignment rm221m to rm221. Sheet5 started simple with one shape: "Rectangle 1" and the assign macro sub worked. I then copied group "Group 100" from Sheet26 to do same and it worked. I do not see why this is true.

Why did you need to remove "Group 2" on Sheet5? The macro on Sheet5 makes the macro assignment to rm221 directly.

The purpose of the macro in this case is real simple: if shape rm221 is selected (one click) then copy contents from one cell to another (date). I would have used cells but that's 2 clicks.
On line searches I stumbled onto Application.Caller which will require only one macro to be used for all shapes by name. Seems like the way to do it. Any gotchas with this method.
Thanks again for your patients and help,
Keith