With ActiveCell.MergeArea. If ActiveCell.MergeCells Then. MsgBox 'Please select only the merged cell you want to adjust'.

Option Explicit Private Sub WorkbookOpen() Dim lo As ListObject Dim iTot As Long Set lo ListObjects('MyTable') iTot lo.Range.Rows.Count 'Add this statements before the Range with your worksheet name 'ThisWorkbook.Worksheets('Sheet1') If Now. You need to put in the Workbook module. Here is a VBA event procedure that will do the trick.

WorkaroundTo adjust the height of the row to fit all the text in a cell, follow these steps:Select the row you want to adjust the height.In Microsoft Office Excel 2003 and in earlier versions of Excel, point to Row on the Format menu, and then click AutoFit.In Microsoft Office Excel 2007 and later versions, click the Home tab, click Formatin the Cells group, and then click AutoFit Row Height. You can change the size of multiple columns or rows and modify the space.This behavior occurs if you have manually modified the height of the row. Selecting cells from more than one row or column resizes all of the rows or columns included in the selection.Adjust the table size, column width, or row height manually or automatically.

Excel For Mac Rows Won'T Resize