resize active window ie: add to the height of the active window

hi 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

Private Sub Workbook_Activate()
'
' Macro2 Macro
'

'
   ActiveWindow.WindowState = xlNormal
    With ActiveWindow
        .Top = 175
    End With
    With ActiveWindow
        .Width = 510
        .Height = 322
    End With
End Sub

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

dont know if its possible so if anyone has an idea that would be great

thanks

that works temporarily, but if i minimize or close and open it again it goes back to the original size because of the code i have attached to it

i almost need a macro that goes into vbe and changes the code, and i dont know if that is possible

thanks

hmm not really, i usually have them minimized and mostly recall them via a hyperlink, and when i do that they get resized way too small as the sheet with the hyperlink is small, so i need them to be resized on activating.

thanks