Application VisualBasic Script

Sub changeSize()
    Application.WindowState = xlNormal
    Application.Width = 600
    Application.Height = 450
    End Sub