Private Const SWP_NOMOVE As Long = &H2
Private Const SWP_NOSIZE As Long = &H1
Private Const HWND_TOPMOST As Long = -1
 
Private Declare Function GetForegroundWindow Lib "user32.dll" () As Long
 
Private Declare Function SetWindowPos Lib "user32.dll" (ByVal hwnd As Long, _
  ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal y As Long, ByVal cx As _
  Long, ByVal cy As Long, ByVal wFlags As Long) As Long
 
Private Sub UserForm_Activate()
   SetWindowPos GetForeGroundWindow, _
                HWND_TOPMOST, 0, 0, 0, 0, _
                SWP_NOMOVE OR SWP_NOSIZE
End Sub