Find range of merged cells
 

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

Find range of merged cells
 

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

Find range of merged cells
 

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