I create a spreadsheet using code. Several columns are formatted with Wrap
Text on, so if there is a lot of text, the row expands to handle it. If
there isn't, though, I wind up with some comparatively skinny rows. I would
like to set all my rows heights to at least 25.5; if, however, text in the
row is making row height greater then 25.5, don't touch it. (Several
answers to the first post gave me code to set every row to 25.5. Thank you,
but that will set expanded too narrow to read all the text inside.)

At the moment, the only way I can think of to accomplish this is by
iterating through every row using the code below. That's a lot of time over
several thousand rows. Is there a faster way to accomplish this using a
range?

Ed

For iRow = numRow To 2 Step -1
If Rows(iRow).RowHeight < 25.5 Then
Rows(iRow).RowHeight = 25.5
End If
Next iRow