auto-size userforms

Hi,

Is there a way in which I can auto-size a userform to fit the whole
screen , dependent on moniter size.

regards

John

This should maximize de Userform's dimension within Excel Window:

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

HTH,

--
AP

<john.9.williams@bt.com> a écrit dans le message de
news:1140428713.819554.62300@f14g2000cwb.googlegroups.com...
> Hi,
>
> Is there a way in which I can auto-size a userform to fit the whole
> screen , dependent on moniter size.
>
> regards
>
> John
>

Hi John,

Try:

'=============>>
Private Sub UserForm_Initialize()
Application.WindowState = xlMaximized
With Application
Me.Top = .Top
Me.Left = .Left
Me.Height = .Height
Me.Width = .Width
End With
End Sub
'<<=============


---
Regards,
Norman



<john.9.williams@bt.com> wrote in message
news:1140428713.819554.62300@f14g2000cwb.googlegroups.com...
> Hi,
>
> Is there a way in which I can auto-size a userform to fit the whole
> screen , dependent on moniter size.
>
> regards
>
> John
>

Thanks

This works great, however on one of my forms I have a listbox, I have
added the code to this form, but it makes the form to big, any ideas

John

Forget the last post I have sorted it now, thanks guys great advice

John