how to assign a name to checkbox at creation time.

[Gringoire]

Hi guys,
I need to create by code some checkboxs in a worksheet but I'm not able to assign them a name:

    ActiveSheet.OLEObjects.Add ClassType:="Forms.CheckBox.1", _
    Link:=True, DisplayAsIcon:=False, _
    Left:=Range("d8").Left, Top:=Range("d8").Top, Width:=Range("d8").Width, Height:=Range("d8").Height, Name:="Pippo"

It seems that Argument "Name" does not exist.
where am I doing wrong?

thanks.

 

[RoryA]

Try:

ActiveSheet.OLEObjects.Add(ClassType:="Forms.CheckBox.1", _
    Link:=True, DisplayAsIcon:=False, _
    Left:=Range("d8").Left, Top:=Range("d8").Top, Width:=Range("d8").Width, Height:=Range("d8").Height).Name = "Pippo"

though I would recommend you use Form controls rather than ActiveX if you can.

 

[Gringoire]

...though I would recommend you use Form controls rather than ActiveX if you can.

thanks. With form controls is much easier:

Sub AddCheckBoxes()

    Dim cb As CheckBox
    Dim wks As Worksheet

    Set wks = Sheets("LOAD")
    Set cb = wks.CheckBoxes.Add(cel.Left, cel.Top, 30, 6)

        With cb
            .Caption = "Pippo"
            .Name = "Pippo"
            .Value = xlOff
            .OnAction = "mymacro"
        End With

End Sub

 

[RoryA]

Yep, and more stable too.