Tom’s Tutorials For Excel: Maximizing Your UserForm to Full Screen Size

Tom’s Tutorials For Excel: Maximizing Your UserForm to Full Screen Size

To fill the screen with your UserForm while maintaining the relative position of the form’s controls, stick this Initialize event code into the UserForm’s module:

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