Excel VisualBasic Script

Sub changePro()
    Workbooks(1).Windows(1).WindowState = xlNormal
    Workbooks(1).Windows(1).Width = 500
    Workbooks(1).Windows(1).Height = 300
End Sub