AutoFit
AutoFit
(OP)
Here is a cool macro if you're tired of resizing height and length of your cells. It is based on the AutoFit function :
Sub resize()
Range("A1").Select
Do While ActiveCell.Value <> ""
Selection.EntireRow.AutoFit
Selection.EntireColumn.AutoFit
ActiveCell.Offset(1, 0).Range("A1").Select
Loop
End Sub
Enjoy!
Sub resize()
Range("A1").Select
Do While ActiveCell.Value <> ""
Selection.EntireRow.AutoFit
Selection.EntireColumn.AutoFit
ActiveCell.Offset(1, 0).Range("A1").Select
Loop
End Sub
Enjoy!
Cyril Guichard
Mechanical Engineer
RE: AutoFit
Cheers,
Joerd
Please see FAQ731-376 for tips on how to make the best use of Eng-Tips.
RE: AutoFit
Cyril Guichard
Mechanical Engineer