Pregunta para el experto Luis Mondelo

Esta es la macro que necesitas:

Sub combinadas()
For Each celda In ActiveSheet.UsedRange
If celda.MergeCells Then
lista = lista & "," & celda.Address
End If
Next
lista = Mid(lista, 2, Len(lista) - 1)
MsgBox "las celdas combinadas están en: " & lista
End Sub