行全体EntireRow

Sub r折り返し()

    If ActiveCell.WrapText = False Then
        Selection.WrapText = True
        Selection.EntireRow.AutoFit
    Else
        Selection.WrapText = False
    End If

End Sub