title: How to automatically load checkbox if cell full?
body: <p>I'm trying to excel in creating a checkbox automatically if the cell in column A has a data. Also if from column A have data from A: 5 to A: 11 there should be 6 checkboxes, one for each full cell.
  I have tried to adapt the following macro that takes the changes in column A but I have failed successfully.</p>
  
  <pre><code>Private Sub Worksheet_Change(ByVal Target As Range)
      Dim chkbox As CheckBox
      Dim cell As Range
  
      If Not Intersect(Target, Range("A10:A1000")) Is Nothing Then
          For Each cell In Intersect(Target, Range("A10:A1000"))
              If Not IsEmpty(cell.Value) Then
                  'If the cell is NOT empy, I should add a checkbox, to the right of the cell without text
                  Set chkbox = ActiveSheet.CheckBoxes.Add(cell.Left, cell.Top, cell.Width, cell.Height)
                  With chkbox
                      .Text = ""
                  End With
              Else
                  For Each chkbox In ActiveSheet.CheckBoxes
                      If Not Intersect(cell, chkbox.TopLeftCell) Is Nothing Then
                          chkbox.Delete
                      End If
                  Next chkbox
              End If
          Next cell
      End If
  
      Call LinkCheckBoxes
  
  End Sub
  </code></pre>