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