I know this is an old topic and I have tried many things including Jim
Rech's code which everyone tells me should work, but for some reason
doesn't for me.

My cell range is A42:AA142.  In the following code from Jim, where do I
reference the cell range or should the code apply to the worksheet so
there is no need to reference the cells?  If that's the case, is there
something I need to do when I have pasted this code?

Thanks,

Gary

Sub AutoFitMergedCellRowHeight()
Dim CurrentRowHeight As Single, MergedCellRgWidth As Single
Dim CurrCell As Range
Dim ActiveCellWidth As Single, PossNewRowHeight As Single
If ActiveCell.MergeCells Then
   With ActiveCell.MergeArea
       If .Rows.Count = 1 And .WrapText = True Then
           Application.ScreenUpdating = False
           CurrentRowHeight = .RowHeight
           ActiveCellWidth = ActiveCell.ColumnWidth
           For Each CurrCell In Selection
               MergedCellRgWidth = CurrCell.ColumnWidth + _
                    MergedCellRgWidth
           Next
           .MergeCells = False
           .Cells(1).ColumnWidth = MergedCellRgWidth
           .EntireRow.AutoFit
           PossNewRowHeight = .RowHeight
           .Cells(1).ColumnWidth = ActiveCellWidth
           .MergeCells = True
           .RowHeight = IIf(CurrentRowHeight > PossNewRowHeight, _
            CurrentRowHeight, PossNewRowHeight)
       End If
   End With
End If
End Sub