Resize Active Window - Increases Height Of Workbook

I was just wondering if it possible to create a macro that permanently increases the height of a workbook by a set increment

I have several workbooks that i have the code below assigned to

[Code] ......

So when they open they resize to that set size and position. and what ive been doing if i need to resize (which is often) is just adjust the values in the above code.

Not that the way ive been doing it is difficult but i was thinking how great it would be if i could have a macro i could run that permanently adds 9 to the .Height and subtracts 9 from the .Top