Autofit row when clicking in it

[schayer]

Whitin a specific range N44 to N4130, only the first few words in each cell is visible. if the user clicks on a cell, that row autofits to show the entire text in it. And remains that way, but the user can also click on other cells within that range with the same result.

 

[vletm]

schayer
Based Your writing
Copy below code to that sheet's code-page

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    h = Range("N5000").RowHeight
    With Target
        ay = .Row
        If .Column = 14 And ay >= 44 And ay <= 4130 Then
            If h = .RowHeight Then
                .EntireRow.AutoFit
            Else
                .EntireRow.RowHeight = h
            End If
        End If
    End With
End Sub