Sub Macro1()
Dim cell As Range
Dim cbx As CheckBox

For Each cell In Range("D5:D25")
Set cbx = ActiveSheet.CheckBoxes.Add(241.5, 51.75, 46.5, 17.25)
With cbx
.Value = xlOff
.LinkedCell = cell.Address
.Display3DShading = False
.Height = cell.Height
.Top = cell.Top
.Left = cell.Left + cell.Width
End With
Next
End Sub


"Anders J." wrote:

I have very many rows I would like to create a checkbox for (we're talking
about 800 -900 rows) Is there a way to create this and include the link to
the cell that is just right of it.

E.g. A1 should be all checkbox from row A1 to A900 and then they should each
be linked to B1 to B900 respectively.

In advance. thanks