How to select dynamic multipage tab please?

[gmaxey]

Well obviously you can't set the focus on a control positioned on a hidden page tab.

Private Sub UserForm_Initialize()
Dim lngIndex As Long
  With MultiPage1
    .Value = 0
    .Pages(5).Visible = False
    .Pages(6).Visible = False
    .Pages(7).Visible = False
On Error GoTo Err_Enabler
    For lngIndex = 0 To MultiPage1.Pages.Count
       If TextBox1 = vbNullString Then
         TextBox1.SetFocus
         Exit For
       End If
    Next
  End With
lbl_Exit:
  Exit Sub
Err_Enabler:
  lngIndex = lngIndex + 1
  MultiPage1.Value = lngIndex
  Resume
End Sub