Find range of merged cells

[Guest]

I would like a macro that can search one cell say "A1" and check if the cell
is merged.

If the cell is merged then return all cells merged with "A1"

Thanks

 

[NickHK]

Something like this:

Public Function MergedCells(WhichRange As Range) As Variant

With WhichRange
If .MergeCells = False Then
MergedCells = False
Else
MergedCells = .MergeArea.Address
End If
End With

End Function

NickHK

 

[Guest]

Cheers Nick just what I was looking for

Something like this:

Public Function MergedCells(WhichRange As Range) As Variant

With WhichRange
If .MergeCells = False Then
MergedCells = False
Else
MergedCells = .MergeArea.Address
End If
End With

End Function

NickHK