My previous reply assumes WrapText is already turned on. Otherwise,
revise as follows:

Sub Autofit_SelectedCells()
Dim c As Range
For Each c In Selection
c.WrapText = True: Rows(c.Row).AutoFit
Next
End Sub

--
Garry

Free usenet access at http://www.eternal-september.org
ClassicVB Users Regroup! comp.lang.basic.visual.misc