Minimize Application

zotee98 · Feb 12th 2007

i want to minimize the excel application and show a userform on startup. Any ideas?

Thanks for the help.

**Trebor76** · Feb 12th 2007

Re: Minimize Application

Hi,

Copy in the following code into a blank module and change YourFormName accordingly:

Code

Sub Auto_Open()
ActiveWindow.WindowState = xlMinimized
YourFormName.Show
End Sub

The following code will then maximise excel (presumably when the user closes your form):

Code

ActiveWindow.WindowState = xlMaximized

Hope this solves this issue.

Kind regards,

Robert
: D

**Reafidy** · Feb 12th 2007

Re: Minimize Application

Robert you beat me by 10 seconds!!

Hi there,

Code

Private Sub Workbook_Open()


Application.WindowState = xlMinimized
YourUserForm.Show


End Sub

HTH

Participate now!