In manchen Fällen will es ein­fach nicht klap­pen, dass eine User­Form immer zen­tri­ert in der Mitte des aktiv­en Anwen­dungs-Fen­sters dargestellt wird. Und wenn mehrere Bild­schirme ver­wen­det wer­den, scheint das mitunter ein Glücksspiel zu sein- Mit weni­gen Zeilen Code lässt sich das aber bere­ini­gen:

Private Sub UserForm_Initialize()
   Dim xTop As Long, xLeft As Long
   
   Me.StartUpPosition = 0
   With Application
      xLeft = .Left + .Width / 2 - Me.Width / 2
      xTop = .Top + .Height / 2 - Me.Height / 2
   End With
   With Me
      .Left = xLeft
      .Top = xTop
   End With
End Sub

Dieser Code wird (naturgemäß) in die entsprechende User­Form einge­fügt.