User Form Windows

Hi Eve

Thanks for your question

after some playing around I have come up with the following code which seems to do the trick

Private Sub UserForm_Initialize()



    With ActiveWindow



        .WindowState = xlNormal

        .Top = 1

        .Left = 1

    

    End With

    

    With Me



        .Width = Application.UsableWidth

        .Height = Application.UsableHeight



    End With



End Sub