Oleobjects group box

[michael v]

I would like to make this work with the group box but I don't seem to be
able to find it as a classtype ?

Sub AddComm_button()
ActiveSheet.OLEObjects.Add ClassType:="Forms.Frame.1", Left:=126, Top:=96,
Width:=126.75, Height:=25.5
End Sub

[Tom Ogilvy]

The groupbox isn't an OleObject.

ActiveSheet.GroupBoxes.Add(110.25, 84, 112.5, 69.75).Select


--
Regards,
Tom Ogilvy



"michael v" <test@test.com> wrote in message
news:uNDH6miNGHA.3888@TK2MSFTNGP12.phx.gbl...
> I would like to make this work with the group box but I don't seem to be
> able to find it as a classtype ?
>
> Sub AddComm_button()
> ActiveSheet.OLEObjects.Add ClassType:="Forms.Frame.1", Left:=126, Top:=96,
> Width:=126.75, Height:=25.5
> End Sub
>
>
>
>

[michael v]

Thanx Tom

"Tom Ogilvy" <twogilvy@msn.com> wrote in message
news:ejtMF7iNGHA.3896@TK2MSFTNGP15.phx.gbl...
> The groupbox isn't an OleObject.
>
> ActiveSheet.GroupBoxes.Add(110.25, 84, 112.5, 69.75).Select
>
>
> --
> Regards,
> Tom Ogilvy
>
>
>
> "michael v" <test@test.com> wrote in message
> news:uNDH6miNGHA.3888@TK2MSFTNGP12.phx.gbl...
> > I would like to make this work with the group box but I don't seem to be
> > able to find it as a classtype ?
> >
> > Sub AddComm_button()
> > ActiveSheet.OLEObjects.Add ClassType:="Forms.Frame.1", Left:=126,
Top:=96,
> > Width:=126.75, Height:=25.5
> > End Sub
> >
> >
> >
> >
>
>