Insira todas caixas de seleção desejadas e então rode o código abaixo através do VBA:
Sub VincularCheckBoxes()
Dim chk As CheckBox
For Each chk In ActiveSheet.CheckBoxes
With chk
.LinkedCell = _
.TopLeftCell.Address
End With
Next chk
End Sub
Rafael Issamu F. Kamimura
Moderador Oficial Microsoft Community - MCC (Contribuidor do Microsoft Community)
http://zip.net/bjrt0X - http://zip.net/bhrvbR
Foi útil? Clique na mãozinha
Conheça: http://excelmaniacos.com/
Postado : 15/09/2016 12:26 pm