At its simplest, you simply replicate the code you have for Table 8 and point it to Table 10:
PS: When posting code, please use the code tags, indicated by the # symbol on the posting menu.Private Sub ToggleButton1_Click() With ActiveDocument.Tables(8).Rows(2) If .HeightRule = wdRowHeightExactly Then .HeightRule = wdRowHeightAuto ToggleButton1.Caption = "Yes" .Borders(wdBorderBottom).LineStyle = wdLineStyleSingle .Borders(wdBorderLeft).LineStyle = wdLineStyleSingle .Borders(wdBorderRight).LineStyle = wdLineStyleSingle Else ToggleButton1.Caption = "No" .HeightRule = wdRowHeightExactly .Height = ".5" .Borders(wdBorderBottom).LineStyle = wdLineStyleNone .Borders(wdBorderLeft).LineStyle = wdLineStyleNone .Borders(wdBorderRight).LineStyle = wdLineStyleNone End If End With With ActiveDocument.Tables(10).Rows(2) If .HeightRule = wdRowHeightExactly Then .HeightRule = wdRowHeightAuto .Borders(wdBorderBottom).LineStyle = wdLineStyleSingle .Borders(wdBorderLeft).LineStyle = wdLineStyleSingle .Borders(wdBorderRight).LineStyle = wdLineStyleSingle Else .HeightRule = wdRowHeightExactly .Height = ".5" .Borders(wdBorderBottom).LineStyle = wdLineStyleNone .Borders(wdBorderLeft).LineStyle = wdLineStyleNone .Borders(wdBorderRight).LineStyle = wdLineStyleNone End If End With End Sub