Ok now im stuck

[Guest]

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.

 

[Bob Phillips]

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)

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]

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

http://groups.google.com/groups?&[email protected]