Sub AutoFit()
Application.Screenupdating = False
Cells.Select
Cells.EntireColumn.AutoFit
Cells.EntireRow.AutoFit
Range("A1").Select
End Sub
Application.Screenupdating = False
Cells.Select
Cells.EntireColumn.AutoFit
Cells.EntireRow.AutoFit
Range("A1").Select
End Sub
No comments:
Post a Comment