あなたの場合の問題は、あなたが指しているリンクとは少し異なります(SelectionChangedイベントにあるため)。あなたの場合、問題はSelection.MergeCells
VBA コードで使用していることです。そうしないでください。
独自の VBA コードで Select 関連のアクションを使用することは常に避ける必要があります (これは遅く、さらに悪いことに、このような意図しない副作用がたくさんあるためです)。代わりに、範囲オブジェクトを使用してください。ただし、Selection Range 自体は Selection オブジェクトに非常に密接にバインドされているため、次のように関連付けを解除する必要がある場合があります。
Dim rng As Range, ws As Worksheet
'get the current worksheet
Set ws = ActiveSheet
'get the selection-range
Set rng = Selection
'get the same range, but disassociated from the selection
'(I think this works?)
Set rng = ws.Range(rng.AddressLocal)
If rng.MergeCells Then ...
代わりに使用できるより複雑なアプローチがあるため、これが機能しない場合はお知らせください (今はテストできません)。