insert row when cell full, auto wrap

[Tim]

Hi there,
I used this code in ver 2003 to insert a row and wrap text in a cell..BUT,
it does not work in ver 2007. Any ideas? Much appreciated.

Private Sub Worksheet_Change(ByVal Target As Range)
Dim NewRwHt As Single
Dim cWdth As Single, MrgeWdth As Single
Dim c As Range, cc As Range
Dim ma As Range

With Target
If .MergeCells And .WrapText Then
Set c = Target.Cells(1, 1)
cWdth = c.ColumnWidth
Set ma = c.MergeArea
For Each cc In ma.Cells
MrgeWdth = MrgeWdth + cc.ColumnWidth
Next
Application.ScreenUpdating = False
ma.MergeCells = False
c.ColumnWidth = MrgeWdth
c.EntireRow.AutoFit
NewRwHt = c.RowHeight
c.ColumnWidth = cWdth
ma.MergeCells = True
ma.RowHeight = NewRwHt
cWdth = 0: MrgeWdth = 0
Application.ScreenUpdating = True
End If
End With
End Sub

 

[Gord Dibben]

That code does not insert a row nor does it set a cell to wrap text.

All it does is allow autofitting rows with merged cells.

Cells must be preset to "Wrap Text"

Rows must to preset to "Autofit"

Then and only then will the merged cells autofit.


Gord Dibben MS Excel MVP