If ThisWorkbook.Sheets("YourSheet").Cells(row, column).MergeCells = True Then

   MsgBox "Merged Do something"

Else

   MsgBox "Do something else"

End If