Multiple (and I mean MULTIPLE) checkboxes

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!
 
R

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
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Top