I am trying to insert checkboxes into a specific cell range of cells. I have a loop to process each cell in turn and then add the cb.

LeftPosition = ActiveCell.Left
TopPosition = ActiveCell.Top
ActiveSheet.CheckBoxes.Add(LeftPosition, TopPosition, 25, 17.25).Select
Selection.Characters.Text = ""
        With Selection
            .Value = xlOff
            .LinkedCell = CheckBoxLink
            .Display3DShading = False
        End With
The loop processes the cells and adds the checkboxes successfully (1000 rows) but the further down the page it gets the checkboxes become unaligned to the cell that it should be inserted into.

I thought that the checkbox could be inserted into the cell using the top and left parameters of the cell, but I'm getting very frustrated with this now !

Any suggestions welcome.Thanks....