Progress

Attribute VB_Name = "Progress"
Attribute VB_Base = "0{E9907DF8-E43E-425D-ADA5-EFC94EAE94D7}{0458BA2C-6690-4010-A99F-CEC8056AFC86}"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Attribute VB_TemplateDerived = False
Attribute VB_Customizable = False

Option Explicit

Private Sub UserForm_Activate()
    'Approx over top/left cell (depends on toolbars visible)
    Me.Top = Application.Top + (Application.UsableHeight / 2) - (Me.Height / 2) + 90
   Me.Left = Application.Left + (Application.UsableWidth / 2) - (Me.Width / 2)
End Sub
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
    If CloseMode = vbFormControlMenu Then
        Cancel = True 'so user cant close the modal
    End If
End Sub