VBA to autofit only the row of the active cell

Hello, everyone,

I am looking for code to autofit the row of the active cell of a table (Table1) and return the row to its fixed height (15) when the cell is deselected.

(Note: I want to leave text-wrapping in place for all table cells so that blank cells are easily identifiable.)

Thanks for your help.

for fullfilling the subject, you would do this behind the sheet

Please Login or Register  to view this content.

to return row to 15 height, store the row number or a range cell that has the row number included in it. then set the height to 15.

Thank you. BTW, I just now located the long-lost workbook in which I had done it another way:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Range("Table1").RowHeight = 15
Selection.Rows.AutoFit
End Sub