Dim grp As GroupObject, btn As Button
Set grp = ActiveSheet.GroupObjects("Group 131")
Set btn = grp.ShapeRange.GroupItems(Application.Caller)
but not work,,,,,,
debug error num = 5

*** Sent via Developersdex http://www.developersdex.com ***

My guess is that it does not like what is returned by the Application.Caller
expression.

"x taol" wrote:

Dim grp As GroupObject, btn As Button
Set grp = ActiveSheet.GroupObjects("Group 131")
Set btn = grp.ShapeRange.GroupItems(Application.Caller)
but not work,,,,,,
debug error num = 5

*** Sent via Developersdex http://www.developersdex.com ***

no, you were wrong. the btn name is returned by application.caller.

Dim grp As GroupObject, btn As Button
Set grp = ActiveSheet.GroupObjects("Group 131")
Set btn = grp.ShapeRange.GroupItems(Application.Caller)
btn.caption="any_str"

but, 3 line is error... oh, no....
please help me.... guru xl....




*** Sent via Developersdex http://www.developersdex.com ***

Dim grp As GroupObject

Shouldn't this be Dim grp As GroupShape? I don't find GroupObject as a
valid declaration.

"x taol" wrote:

no, you were wrong. the btn name is returned by application.caller.

Dim grp As GroupObject, btn As Button
Set grp = ActiveSheet.GroupObjects("Group 131")
Set btn = grp.ShapeRange.GroupItems(Application.Caller)
btn.caption="any_str"

but, 3 line is error... oh, no....
please help me.... guru xl....




*** Sent via Developersdex http://www.developersdex.com ***