Full Screen

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