Dim grp As GroupBox
Set grp = s.GroupBoxes.Add(3.75, 62.25, 242, 47)
grp.Caption = "xxx"
set s=activesheet
s.Shapes.Range(Array(grp.Name, "btnAll","btnLast")).Select
Selection.ShapeRange.Group.Select
Selection.Name = "myGroup"

and btnAll and btnLast is linked with OnAction method to the following
procedure..

sub sbBtn()
dim btn as button
set btn=activesheet.buttons(application.caller)'...err or
if btn.name="btnAll" then
msgbox 1
elseif btn.name="btnLast" then
msgbox 2
end if
end sub

why??? about button in group box.......

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