Thursday 13 November 2014

Autofit the Sheet

Sub AutoFit()

   Application.Screenupdating = False
    Cells.Select
    Cells.EntireColumn.AutoFit
    Cells.EntireRow.AutoFit
    Range("A1").Select

End Sub

No comments:

Post a Comment