Multiple (and I mean MULTIPLE) checkboxes

  • Thread starter Thread starter Josiah
  • Start date Start date
J

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!
 
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
 
Back
Top