VBA: Ancho y Alto de una Celda Combinada

Semanas atrás un lector preguntaba por la manera de conocer cuántas celdas 'reales' existían en una celda combinada, o dicho de otro modo cuál era el ancho y alto de una celda combinada...

Aplicaremos un poco de programación, muy sencilla, para responder la cuestión.
La propiedad .MergeArea del objeto Range.

Partiremos de una celda combinada en nuestra hoja de cálculo, resultado de combinar y centrar B2:C6, i.e., 5 filas por 2 columnas

Insertaremos el siguiente procedimiento 'Function' en un módulo estándar:

Function DimensionCeldaCombinada(rango As Range) As String
    'contamos filas del rango seleccionado
    filas = rango(1).MergeArea.Cells.Rows.Count
    'contamos columnas del rango seleccionado
    cols = rango(1).MergeArea.Cells.Columns.Count
    'contamos celda totales del rango seleccionado
    totalCeldas = rango(1).MergeArea.Cells.Count
    'y devolvemos dato a la función
    DimensionCeldaCombinada = filas & " filas -" & cols & " columnas =" & totalCeldas & " celdas"
End Function

Vemos el resultado y cómo funciona según lo esperado: