Insert New Checkbox into next empty cell

[Haywomen]

Hi,

I am looking to insert a new checkbox into the next empty cell. I can get this far, but then can't specify the properties of the box. See below:

ActiveSheet.OLEObjects.Add "Forms.CheckBox.1", Left:=1206, Top:=(Range("T" & Rows.Count).End(xlUp).Offset(1).Top) + 2.25, Width:=12, Height:=12

I want to give the checkbox the following properties:

.Caption = ""
.Value = xlOff '
.LinkedCell = Range("T" & Rows.Count).End(xlUp).Offset(1)
.Display3DShading = False

If I then introduce a filter to the headings of the columns, will the checkboxes reorder if I change the order of another column?

Thank you

 

[Haywomen]

I would also like to know if there is a way to get the checkboxes to move with their associated row when using filters and sorting.

 

[Domenic]

While your code adds an ActiveX checkbox, it tries to set the Value property with a constant used for a Form checkbox. For an ActiveX checkbox, the Value property is set using True or False. Also, unlike a Form checkbox, an ActiveX checkbox does not have a property called Display3DShading. Can you please confirm whether you in fact want to add a checkbox from the Form controls or the ActiveX controls?