Guru do Excel e Power BI

Sub ActX_Add_Multiple_CheckBox_Ex1()
'Fonte:http://analysistabs.com/vba/add-checkbox-on-worksheet-or-userform-using-vba/
'Disable Screen Update
Application.ScreenUpdating = False
'Variable Declaration
Dim Rng As Range
Dim ShtRng As Range
Dim WrkSht As Worksheet
Dim i As Integer
'Variable Initialization
i = 1
Set ShtRng = Application.Selection
Set ShtRng = Application.InputBox("Range", "Selecione o Intervalo", ShtRng.Address, Type:=8)
Set WrkSht = Sheets("Plan1")
    For Each Rng In ShtRng
        With WrkSht.CheckBoxes.Add(Left:=Rng.Left, Top:=Rng.Top, Width:=Rng.Width, Height:=Rng.Height).Select
            With Selection
                .Characters.Text = Rng.Value
                .Caption = ""
                .Caption = "Check Box " & i
                i = i + 1
            End With
        End With
    Next
ShtRng.ClearContents
ShtRng.Select
'Enable Screen Update
Application.ScreenUpdating = True
End Sub

Sub LinkCheckBoxes()
'Fonte:http://blog.contextures.com/archives/2014/01/14/click-a-cell-to-check-yes-or-no/
Dim chk As CheckBox
Dim lCol As Long
lCol = 1 'number of columns to the right for link

For Each chk In ActiveSheet.CheckBoxes
   With chk
      .LinkedCell = _
         .TopLeftCell.Offset(0, lCol).Address
   End With
Next chk

End Sub