Multiple (and I mean MULTIPLE) checkboxes

[Josiah]

I've got a spreadsheet that uses a MULTITUDE of checkboxes (around 100
or so) equally spaced out in rows and columns. I need to format the
cell link for EACH checkbox so that it links to the cell directly
underneath each check box. Do any of you know a quick way to do this
other than manually manipulating the "cell link" for each checkbox
under "Format Control"?

Thanks!

 

[Robert Rosenberg]

Assuming the checkboxes come from the Forms toolbar, you can use the
following macro:

Sub SetCellLink()

Dim objCheckBox As CheckBox

For Each objCheckBox In ActiveSheet.CheckBoxes
objCheckBox.LinkedCell = objCheckBox.TopLeftCell.Offset(2,
0).Address
Next objCheckBox

End Sub

 

[Josiah]

Thanks Robert!! That's perfect!!