Set Merge = ActiveCell.MergeArea If Merge Is Nothing Then MsgBox "No MergeCell" Else MsgBox Merge.Address End If