Help with Autofit based on criteria in Col B

[Anfinsen]

Hi All,
I know what line is causing me trouble in this code, I just don't know how to fix it.

I am trying to autofit the entire row where data exists in column B, starting at row 6. I think this is incorrect "c.EntireRow.AutoFit", I just don't know how to reference the row of the "active cell"
Any help would be greatly appreciated.

Sub FitDescRows()
  Dim c As Range, sh1 As Worksheet
  Set sh1 = Sheets("Pick List")
  For Each c In sh1.Range("B6", sh1.Cells(Rows.Count, "B").End(xlUp))
    If c.Value <> "" Then
      c.EntireRow.AutoFit
    End If
  Next

End Sub

 

[Fluff]

There is nothing wrong with that code.
What error are you getting?

 

[Anfinsen]

There is nothing wrong with that code.
What error are you getting?

Never mind, I am an idiot. I am working on some previous code handed to me, and I found where they had the same range set to WrapText = True, so it looked like my code wasn't autofitting these, because they already were as part of the previous "WrapText" code. I'll mark this solved, unless there is an "I'm an idiot" option"

 

[Fluff]

Glad you sorted it & thanks for the feedback.