Autofit columns upon worksheet activate?

[slam]

Is there some VB code to do this?

I have a worksheet with dynamic data and I'd like the columns to be as tight as possible based on the data contained within at the time. The columns are A through S.

Thanks

 

[njimack]

Private Sub Worksheet_Activate()
Columns("A:S").EntireColumn.AutoFit
End Sub

 

[slam]

Excellent - works perfectly. Thanks so much!

 

[njimack]

You're welcome.