Formatting checkboxes in VBA

[vbaNumpty]

I have the following code to insert checkboxes in my worksheet. I am trying to have them maintain the property of moving with the cells, but it doesn't seem to be applying the change because when I right click and go to the format control window / properties tab, it is always at don't move or size with cells.

           ActiveSheet.CheckBoxes.Add(MyLeft, MyTop, MyWidth, MyHeight).Select
                With Selection
                    .Caption = ""
                    .value = xlOff
                    .LinkedCell = addMe.Offset(n, 22).Address
                    .Display3DShading = False
                    .Placement = xlMove
                    .PrintObject = True
                End With

 

[vbaNumpty]

Looks like it works after restarting the file. Couldn't tell you why it wasn't working prior to that.

 

[Marc L]

​

As by default on my side when inserting a checkbox the property is already set to move no need any codeline …​

Try manually and check it out !​

 

[Domenic]

As an aside, there's no need to do any selecting. Your code can be re-written as follows...

                With ActiveSheet.CheckBoxes.Add(MyLeft, MyTop, MyWidth, MyHeight)
                    .Caption = ""
                    .Value = xlOff
                    .LinkedCell = addMe.Offset(n, 22).Address
                    .Display3DShading = False
                    .Placement = xlMove
                    .PrintObject = True
                End With