Sub LinkBoxes()
Dim cbox As CheckBox
For Each cbox In ActiveSheet.CheckBoxes
Set rng = cbox.TopLeftCell '(or cbox.BottomRightCell)
cbox.LinkedCell = rng.Offset(0, 1).Address
Next
End Sub

The success of this method will depend on where the control is sitting (i.e.
what cell is returned for topleftcell [or bottomrightcell]).

if the top left corner is over the cell to the left of where you want to
link you are good to go.

--
Regards,
Tom Ogilvy


"Bahboosh" wrote:

Tom Ogilvy wrote:
What kind of checkboxes - control toolbox toolbar or forms toolbar.

--
Regards,
Tom Ogilvy

Forms toolbar checkboxes