Freeze row height then put button to view entire cell
Cooz,
Seems to me that a toggle would be more appropriate:
Sub ViewAnswerToggle()
If Selection.Rows(1).HeightRule = wdRowHeightExactly Then
Selection.Rows(1).HeightRule = wdRowHeightAuto
Else
With Selection.Rows(1)
.HeightRule = wdRowHeightExactly
.Height = "42"
End With
End If
End Sub
|