Counting number of cells in a row and columns taken by a merged cell

[surkdidat]

Is there a way of returning a count of the number of cells in a merged area?

For example if I merged from A1 : D2 I would want it to return 4 x 2 as it expands over 4 columns, and over 2 rows. (Ideally I then need each answer multiplied by 5 so, it would then return 20 x 10

(All cells in the merged area are blank)

Thanks

 

[Joe4]

This will show you how to count rows, columns, and cells in a merged range:

Sub MyCode()

    Dim numCells As Long
    Dim numRows As Long
    Dim numCols As Long
    
    numCells = Range("A1").MergeArea.Cells.Count
    MsgBox "The total number of cells in the merge area is: " & numCells
    
    numRows = Range("A1").MergeArea.Rows.Count
    numCols = Range("A1").MergeArea.Columns.Count
    
    MsgBox numCols * 5 & " x " & numRows * 5
    
End Sub