Private Sub UserForm_Initialize() Me.Width = ActiveWindow.Width Me.Height = ActiveWindow.Height End Sub