Cheers Nick just what I was looking for

"NickHK" wrote:

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

"mcphc" wrote in message
...
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