Выполнить макрос Checkbox Input

Question

У меня есть Check-Boxes с надписью названий стран и OK кнопку на User-form,

Пользователь будет Mark требуется Check-Boxes и нажмите OK для отправки формы.

Ожидаемый результат: Для каждого зарегистрированного Box для выполнения требуется Macro.

Как сделать кнопку OK для выполнения макроса в выбранных странах, которые отмечены от пользователя?

и

Является ли следующий код правильно справиться с ситуацией? или есть другой способ сделать это?

If ActiveDocument.CeemeaFinallist.EasternEurope("CheckBox1").CheckBox.Value = True Then 
Application.Run MacroName:="Normal.NewMacros.CEEMEA2" 
Else 
End If 

Как я Select allCheck-Boxes сразу?

Answer 1

Попробуйте итерацию управления и обжиг макроса, где флажок установлен в True:

Private Sub CommandButton1_Click() 
Dim ctl As Control 
Dim j As Long 
For Each ctl In Me.Controls 
    If TypeOf ctl Is MSForms.CheckBox Then 
     If Me.Controls(ctl.Name).Value = True Then 
      ' Fire macro with ctl.Caption to identify the country 
     End If 
    End If 
Next  
End Sub