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.Check Box.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