AutoFit 1

[FrenchCAD]

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&quot.Select
Do While ActiveCell.Value <> &quot;&quot;
Selection.EntireRow.AutoFit
Selection.EntireColumn.AutoFit
ActiveCell.Offset(1, 0).Range(&quot;A1&quot.Select
Loop
End Sub

Enjoy!

Cyril Guichard
Mechanical Engineer

 

[joerd]

does this really do more than selecting the whole worksheet and then Format | Row | Autofit and Format | Column | Autofit ?



Cheers,
Joerd

Please see FAQ731-376 for tips on how to make the best use of Eng-Tips.

 

[FrenchCAD]

No, it does the exact same thing. It's just more practical to me since I hate clicking throug all the menus

Cyril Guichard
Mechanical Engineer