Sub WindowSet()

    With Application
        .WindowState = xlNormal
        If .Width < 1000 Then .Width = 1000
        If .Height < 700 Then .Height = 700
        .Top = 20
        .Left = 50
    End With

End Sub