Hi Alan,

Try:

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


---
Regards,
Norman


"Al@n" <al@n@g@wsi wrote in message
...
Hi.
Please can someone tell me if it's possible, in the userform.initialize
module to resize the userform to whatever screen size the macro is being
run on. I have managed this with word macros but have little or no
experience with Excel.

Tia
Al@n

)
remove 2 x @