Change merged cells to unmerged

[Linda21]

How do I code the following: If selected cell is merged, then unmerge?

I have tried: If SourceData.Cells(5,1).MergeCells = True Then SourceData.Cells(5,1).UnMerge [where SourceData is my worksheet name]

Thank you.

 

[shg]

How about just unmerging all cells at the beginning and be done with it?

 

[mvptomlinson]

I agree with shg, but for now try:

If sourcedata.Cells(5, 1).MergeCells Then sourcedata.Cells(5, 1).MergeCells = False

 

[Linda21]

The 'Unmerge all' was the perfect solution. Thank you both.