I have some merged cells in column C and I am using the code like that
Code: Select all
Sub Merge_cells()
Dim c As Range
For Each c In Range("C7:C61")
If Intersect(Range("C:C"), c.MergeArea) Then
Debug.Print c.MergeArea.Address
End If
Next c
End Sub