Think you mistaken Kevin. The answer you got was:

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


I don't see any .RowHeight in that answer anywhere.

--
Regards,
Tom Ogilvy

"kevin" wrote in message
...
Earlier I posted a question to this forum concerning
setting a row to Autofit. The answer I got was to use the
following code:

With Worksheets("sheet1").Rows(39)
.RowHeight = .AutoFit
End With

When this executes, the row hight is reduced to 1 pt. Why?

Any help would be appreciated!

Kevin