AutoFit
Rolf
Entschuldigung,
da eine generelle Anpassung der Zeilenhöhe im gesamten Blatt unerwünscht ist,
bleibt nur ein "Gewaltmarsch".
Sub Zeilenhöhe()
Range("A1").Select
Do Until ActiveCell.Value = ""
Selection.Rows.AutoFit
ActiveCell.Offset(1, 0).Select
Loop
End Sub
Gruß, Rolf