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

--
Regards,
Tom Ogilvy

"Kevin" wrote in message
...
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