программирование в VBA

Private Sub CheckBox1_Click(): CheckBoxN_Click 1: End Sub
Private Sub CheckBox2_Click(): CheckBoxN_Click 2: End Sub
Private Sub CheckBox3_Click(): CheckBoxN_Click 3: End Sub
Private Sub CheckBox4_Click(): CheckBoxN_Click 4: End Sub
Private Sub CheckBox5_Click(): CheckBoxN_Click 5: End Sub
 
Private Sub CheckBoxN_Click(n As Long)
Dim i&, j As Long
MultiPage1.Pages.Clear
For i = 1 To 5
  If Controls("CheckBox" & i).Value = True Then
    Set Object = MultiPage1.Add("", "", j)
    MultiPage1.Value = j: j = j + 1
    MultiPage1.SelectedItem.Caption = "Str" & i
  End If
Next i
End Sub
 
Private Sub UserForm_Initialize()
MultiPage1.Pages.Clear
End Sub

'передаём 1 в CheckBoxN_Click(n As Long)
Private Sub CheckBox1_Click(): CheckBoxN_Click 1: End Sub
'передаём 2 в CheckBoxN_Click(n As Long) дальше можно догататься
Private Sub CheckBox2_Click(): CheckBoxN_Click 2: End Sub
Private Sub CheckBox3_Click(): CheckBoxN_Click 3: End Sub
Private Sub CheckBox4_Click(): CheckBoxN_Click 4: End Sub
Private Sub CheckBox5_Click(): CheckBoxN_Click 5: End Sub
 
 
Private Sub CheckBoxN_Click(n As Long)
'объявляем переменные
Dim i&, j As Long
'убираем вкладки из мультипэйджа
MultiPage1.Pages.Clear
'цикл от 1 до 5
For i = 1 To 5
  'если чекбоск номер i активирован тогда..
  If Controls("CheckBox" & i).Value = True Then
    'добавляем вкладку
    Set Object = MultiPage1.Add("", "", j)
    MultiPage1.Value = j: j = j + 1
    MultiPage1.SelectedItem.Caption = "Str" & i
  End If
Next i
End Sub
 
'при инициализации формы убираем страницы
Private Sub UserForm_Initialize()
MultiPage1.Pages.Clear
End Sub