VBA l oop через флажки и открыть файл, начиная со значения флажка

Question

Мне тоже нужно l oop через флажки и открыть файл (в заданном каталоге), начиная с имени флажка. (например, значение флажка = A, затем откройте файл A_xxx.xlsx)

Каталог также не является c, некоторые папки выбираются с помощью выпадающего списка. Осталось открыть файл (ы), если установлены один или несколько флажков. Я попытался написать пример для checkbox2, и он не работает.

 Private Sub CommandButton1_Click()
    Dim sFolder As String
    Dim initial As String
    Dim initial_path As String
    Dim name As String
    Dim i As Control

' check for completion:


 If Me.ComboBox1.Value = "" Then MsgBox "Please complete all inputs": Exit Sub
    If Me.ComboBox3.Value = "" Then MsgBox "Please complete all inputs": Exit Sub
    'If initial = "" Then MsgBox "Please complete all inputs": Exit Sub

' now check initial path exists:
initial_path = "C:\Users\ra00036337\Desktop\My files" & "\" & Me.ComboBox1.Value & "\" & Me.ComboBox3.Value & "\"
If Dir(initial_path, vbDirectory) = "" Then MsgBox "Directory not found": Exit Sub
name = "Raw"
name = Dir(initial_path & name & "*", vbDirectory)
If Len(name) Then

For Each i In Me.Frame2.Controls
    Debug.Print TypeName(i)
    If TypeName(i) = "Checkbox" Then
     If Me.CheckBox2.Value = True Then
      Workbooks.Open Filename:=(initial_path & name & "*" & "A*" & "*.xlsx")
 End If
 End If
 Next i

End If
End Sub