Jonathan,

Here is some code to do it

Dim chk As CheckBox
Dim i As Long

i = 21
For Each chk In ActiveSheet.CheckBoxes
chk.LinkedCell = "d" & i
i = i + 1
Next chk

--

HTH

Bob Phillips
... looking out across Poole Harbour to the Purbecks
(remove nothere from the email address if mailing direct)

"Jonathan" wrote in message
...
I have check boxs in 1800 rows, they should be linked to seperate cells in
each row IE d21 when the check box is checked d21 returns a value of true.
now i copied and pasted the check boxs but all 1800 refered back to d21 is
there a way to change the cell reference without going into the format
control box and changing all 1800 of them to read d22, d23 etc.