Finding Merged Cells

[ammdumas]

I figure somebody has done this before and has a macros handy...

I need to find all merged cells in a spreadsheet. Unfortunately I can't do any sort of global un-merge because the data is mixed, so I just have to identify the cells and then play with them manually. Finding them first would save a ton of time since there is about 4000 records using 25-odd columns. I guess putting the results in a separate cell or something (listing the cell numbers?) would be cool. Any help is appreciated.

 

[parry]

This will highlight merged cells yellow.

Sub FOrmatMergedCells()
Dim MrgCell As Range

For Each MrgCell In ActiveSheet.UsedRange
If MrgCell.MergeCells Then MrgCell.Interior.Color = vbYellow
Next MrgCell

End Sub

 

[ammdumas]

Sweet! Worked like a charm. Thanks!