Centreing and maximising userform

[Mikey80]

How can I make sure that my userform (a) fills the screen, and (b) is in the centre?

 

[My Aswer Is This]

Try putting this in your Userform:

Private Sub UserForm_Initialize()
'Modified 6/22/18 2:02 AM EDT
Dim ans As Long
Dim anss As Long
ans = ActiveWindow.Width
anss = ActiveWindow.Height
UserForm1.Width = ans
UserForm1.Height = anss
End Sub