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