Expand Embedded Excel SpSheet in Word Doc v2003

[CrystalKim]

My co-worker is working on a spreadsheet here is the dilemma. I am hoping someone here can help.

Thanks as always

I have embedded an excel table within a word document. I created a macro to unprotect the workbook insert a row in the proper place and re-protect the workbook. Is there a VBA line or lines that I can add to expand the size of the excel window by one row so I can see the bottom line of the spreadsheet within the word document?


Private Sub CommandButton1_Click()
' Inserts Row in Credit Exposure Table
'
Application.Goto Reference:="Insertion_Point"
Selection.EntireRow.Insert
TableHeight = Application.Height + 16

' Is there a line or two I can add here to expand the size
' of the excel table in word so the bottom line of the worksheet
' does not drop out of sight?

End Sub