Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

Register Log in
  • Congratulations cowski on being selected by the Eng-Tips community for having the most helpful posts in the forums last week. Way to Go!

AutoFit 1

Status
Not open for further replies.
FrenchCAD

FrenchCAD

Mechanical
Joined
Feb 8, 2002
Messages
321
Location
BE
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 <> &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
 
Sort by date Sort by votes
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.
 
Upvote 0 Downvote
No, it does the exact same thing. It's just more practical to me since I hate clicking throug all the menus :-P

Cyril Guichard
Mechanical Engineer
 
Upvote 0 Downvote
Status
Not open for further replies.

Part and Inventory Search

Sponsor

Back
Top