Pete,
You could try something like the following:
Sub AAA()
Dim MergeCell As Range
Dim OrigCells As Range
Set MergeCell = Range("A3")
With MergeCell.MergeArea
Set OrigCells = .Resize(.Rows.Count, .Columns.Count)
End With
Debug.Print OrigCells.Address
End Sub
--
Cordially,
Chip Pearson
Microsoft MVP - Excel
Pearson Software Consulting, LLC
www.cpearson.com
(email on the web site)
"(PeteCresswell)" wrote in message
...
If somebody sends me a worksheet that contains merged cells, Is there any
way
for me to programmatically determine what the original component cells
were?
--
PeteCresswell