Automating Row Height Based on the Length of Text

[hvitzthum]

I am trying to find a code that will automatically adjust my row height while my user is entering information in merged cells. Does anyone know what I can do to accomplish this? I have searched and cannot find the right code.

[ragulduy]

Private Sub Sheet_Change(Byval target as range)
if target.merged = true then rows(target.row).height = 10
end sub

or something