Automatic adjustment of cell width to fit data

[steve400243]

Hello, I am using this code to filter out unused rows in the range noted. I am trying to figure out if the code can be adjusted to automatically adjust column width in columns A thru S?

Thank you for the Help!

Private Sub Worksheet_Activate()
Dim r As Range, c As Range
Set r = Range("a13:a39")
Application.ScreenUpdating = False
For Each c In r
If c.Value = "" Then
c.EntireRow.Hidden = True
Else
c.EntireRow.Hidden = False
End If
Next c
Application.ScreenUpdating = True
End Sub

 

[GWteB]

Try

    Columns("A:S").AutoFit

 

[steve400243]

Thanks GWteB, Would I put that after -

Application.ScreenUpdating = False

 

[steve400243]

Seems to work as needed placing it as noted above. Thanks for the help.

 

[GWteB]

You are welcome and thanks for the feedback.