X
x taol
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 ***
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 ***