checkbox linked to a cell

Hello,
I am programatically trying to add a checkbox.
but it looks like you have to give pixal locations

ActiveSheet.OLEObjects.Add(ClassType:="Forms.CheckBox.1", Link:=False, _
DisplayAsIcon:=False, Left:=111.75, Top:=197.25, Width:=85.5, Height
_
:=21.75).Select


is there a way to add a checkbox and give the cell row / column?

One way:

Option Explicit
Sub testme()

Dim myCell As Range
Dim OLEObj As OLEObject

Set myCell = ActiveSheet.Range("b3")

With myCell
Set OLEObj = .Parent.OLEObjects.Add(ClassType:="Forms.CheckBox.1", _
Link:=False, DisplayAsIcon:=False, _
Left:=.Left, Top:=.Top, Width:=.Width, Height:=.Height)
End With

End Sub



Greg wrote:
>
> Hello,
> I am programatically trying to add a checkbox.
> but it looks like you have to give pixal locations
>
> ActiveSheet.OLEObjects.Add(ClassType:="Forms.CheckBox.1", Link:=False, _
> DisplayAsIcon:=False, Left:=111.75, Top:=197.25, Width:=85.5, Height
> _
> :=21.75).Select
>
> is there a way to add a checkbox and give the cell row / column?

--

Dave Peterson