Why not use

Range("B" & i).Rows.AutoFit
--
HTH,
Barb Reinhardt




"ChipButtyMan" wrote:

Hi,
I have text in a column of rows that is 9 point Lucida Console.
Some of the cells in the column contain several rows of text.
I want to format the row height something like ;

For i = 1 To 1000
If Range("B" & i) = Four Rows Of Text Then
RowHeight = 95
If Range("B" & i) = Three Rows Of Text Then
RowHeight = 85
End If
End If
Next i

Any help is very much appreciated.