Formatting Questions

[Kevin]

I am having trouble formatting a spreadsheet on the fly
for printing. Is there a way to programatically set the
row height to automatic through code. I would prefer this
to guessing using code like the following:

With Worksheets("Sheet1").Rows(39)
.RowHeight = .RowHeight * 2
End With

I would rather have it autoexpand depending on what is in
the row.

Thanks in advance for you help!

Kevin

 

[Tom Ogilvy]

Sub CCCC()
With Worksheets("Sheet1").Rows(39)
.AutoFit
End With
End Sub

 

[Kevin]

Tom,

Thanks!

Kevin