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.

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.

Dave Peterson posted some code that links the check box to the cell at
its top left:

http://groups.google.com/groups?&thr...351B%40msn.com

Jonathan wrote:
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.


--
Debra Dalgleish
Excel FAQ, Tips & Book List
http://www.contextures.com/tiptech.html