Automaticly populate checkboxes in rows of 10

Question

I am trying to create rows of checkboxes based on a columns of cells with values. So far I have the following code:

Private Sub UserForm_Initialize()

    Dim