Using .EntireRow.AutoFit

[ABabeNChrist]

I’m using

Code: Select all

    With Target
        .WrapText = True
        If .RowHeight < 21.5 Then
            .RowHeight = 21.5
        Else
            .EntireRow.AutoFit
        End If
    End With

With Worksheet_Change. It works great, except I’m trying to keep 4 different rows from being affected.

[HansV]

Change the code as follows, and modify the list of exceptions as needed:

Code: Select all

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim rng As Range
    For Each rng In Target.Rows
        Select Case rng.Row
            Case 1, 4, 12, 37 ' Rows that will be skipped
                ' Do nothing
            Case Else
                With rng
                    .WrapText = True
                    If .RowHeight < 21.5 Then
                        .RowHeight = 21.5
                    Else
                        .EntireRow.AutoFit
                    End If
                End With
        End Select
    Next rng
End Sub

[ABabeNChrist]

Thank you Hans
This has also helps me have a little more understanding how to use for each range in the target rows.