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