A Neat "Go To Sheet" Selector

[MrBlackd]

To call the form:

Sub CallGoToSheetSelector()
  GoToSheetSelectorUserForm.Show
End Sub

To center form and to focus in textbox so as to start typing immediately:

Private Sub UserForm_Activate()
    
With Me
  .StartUpPosition = 0
  .Left = Application.Left + (0.5 * Application.Width) - (0.5 * .Width)
  .Top = Application.Top + (0.5 * Application.Height) - (0.5 * .Height)
End With
   
Me.TextBox1.SetFocus
   
End Sub

Friendly greetings.

[Rick Rothstein]

To call the form:

Sub CallGoToSheetSelector()
  GoToSheetSelectorUserForm.Show
End Sub

To center form and to focus in textbox so as to start typing immediately:

Private Sub UserForm_Activate()
    
With Me
  .StartUpPosition = 0
  .Left = Application.Left + (0.5 * Application.Width) - (0.5 * .Width)
  .Top = Application.Top + (0.5 * Application.Height) - (0.5 * .Height)
End With
   
Me.TextBox1.SetFocus
   
End Sub

Friendly greetings.

Who are you directing your comments to?

[MrBlackd]

In the version that I had downloaded setfocus to textbox was not there, probably you have included it in the updated version but I hadn't seen it, that is why I posted...
My mistake, please delete my post...