>mySampleCell = 'H10' >with oExcel.ActiveWorkbook.ActiveSheet >if .Range(m.mySampleCell).MergeCells && Is it merged? > loMergeArea = .Range(m.mySampleCell).MergeArea && range of merged cells > ? loMergeArea.Columns.Count > ? loMergeArea.Rows.Count > ? loMergeArea.Cells(1,1).Address() && top left > ? loMergeArea.Cells.Address() && whole area >endifCetin