Цикл для превращения ячеек таблицы в excel в checkbox в userform

Private Sub UserForm_Initialize()
 
Dim AllCells As Range, rCell As Range
Dim NoDupes As New Collection
Dim Item
'отбор уникальных значений в комбике
    With Worksheets("Настройки")
    'Элементы находятся в столбце A
        Set AllCells = .Range("L6:L" & .Cells(Rows.Count, 12).End(xlUp).Row)
    End With
    'заполняем коллекцию элементами без повторений
    On Error Resume Next
    For Each rCell In AllCells
        NoDupes.Add rCell.Value, CStr(rCell.Value)
    Next rCell
    On Error GoTo 0
    
    Dim Iter As Integer
    
    Dim Cbx As CheckBox
    Dim Pos As Integer
    
    Pos = 0
    Iter = 1
        
    'Добавление уникальных значений в  ComboBox
    For Each Item In NoDupes
        
        
        
         'Add Dynamic Checkbox and assign it to object 'Cbx'
        Set Cbx = InnerUnit.Controls.Add("Forms.CheckBox." & Iter.ToString)
    
        'Assign Checkbox Name
        Cbx.Caption = Item
    
        'Checkbox Position
        Cbx.Left = 100
        Cbx.Top = 100 + Pos
        
        Pos = Pos + 100
        Iter = Iter + 1
    Next Item
End Sub

Private Sub UserForm_Initialize()
 
Dim AllCells As Range, rCell As Range
Dim NoDupes As New Collection
Dim Item
 
'отбор уникальных значений в комбике
    With Worksheets("Настройки")
    'Элементы находятся в столбце A
        Set AllCells = .Range("L6:L" & .Cells(Rows.Count, 12).End(xlUp).Row)
    End With
    'заполняем коллекцию элементами без повторений
    On Error Resume Next
    For Each rCell In AllCells
        NoDupes.Add rCell.Value, CStr(rCell.Value)
    Next rCell
    On Error GoTo 0
    
    Dim Mycmd As Control
    Dim pos As Integer
    pos = 0
    'Выборка  CheckBox
    For Each Item In NoDupes
        Set Mycmd = InnerUnit.Controls.Add("Forms.CheckBox.1")
        Mycmd.Height = 25
        Mycmd.Left = 180
        Mycmd.Top = 60 + pos
        Mycmd.Width = 200
        Mycmd.Caption = Item
        Mycmd.Name = Item
        Mycmd.BackStyle = fmBackStyleTransparent
        pos = pos + 27
    Next Item
End Sub