Sizes

Small / Short (220, 170)

Medium / Normal (240, 220)

Large / Long (260, 270)

Giant / Extra Wide (280, 360)

Full Screen

Private Sub UserForm_Initialize() 
   Application.WindowState = xlMaximized 
   Zoom = Int(Application.Width / Me.Width * 100) 
   Width = Application.Width 
   Height = Application.Height 
End Sub