This should do it:

Private Sub Worksheet_Change(ByVal Target As Range)

Target.EntireRow.AutoFit
If Target.RowHeight < 27 Then Target.RowHeight = 27

End Sub

Regards,
Per

"Patrick C. Simonds" skrev i meddelelsen
...
I actually came up with a work around.

I needed my rows to have a minimum height of 23, but when I set the row
heights to that the autofix would not increase the row height to account
for those rows where text wrapping took place. So I created a hidden
column and put a number in each row and selected a font size which would
produce a row height that I needed. It worked great.


"NoodNutt" wrote in message
...
Oops!

Try this

Target.Rows.RowHeight = 27

HTH