Yeah, I had Min where Max was to be used. Sorry for the
confusion.



--
Cordially,
Chip Pearson
Microsoft MVP - Excel
Pearson Software Consulting, LLC
www.cpearson.com

"Richard" wrote in message
...
Chip,
Don't know why I didn't see this earlier. Easy fix.
You definitely had right idea.
Just replace your command "Min" with "Max",
i.e.
Old: Application.WorksheetFunction.Min(Rng.RowHeight, 30)

New: Application.WorksheetFunction.Max(Rng.RowHeight, 30)

--
Richard


"Chip Pearson" wrote:

Try something like

Dim Rng As Range
For Each Rng In Selection.Cells
Rng.RowHeight =
Application.WorksheetFunction.Min(Rng.RowHeight, 30)
Next Rng


--
Cordially,
Chip Pearson
Microsoft MVP - Excel
Pearson Software Consulting, LLC
www.cpearson.com



"Richard" wrote in message
...
I am using wrapped text.

To make sure all the text can be seen, I set the row height
using
Selection.Rows.AutoFit

However, for easy reading, I also want to make sure that no
cell heigh has a
value less than 30.


--
Richard