結合時の空文字チェック

Question

If IsNull(Cells(2, 5).MergeCells) Then
//処理
End If

上記のコードで空文字チェックをしようとしたのですが、
オブジェクトが必要です。
と、エラーが出ます

If Len(Cells(2, 5).MergeCells) = 0 Then
If (Cells(2, 5).MergeCells) = "" Then
も試しましたがだめでした。

なにでチェックしていいかがわからないです。
ご教示ください。

Answer 1

MergeCellsは、trueかfalseを返すので、

If Cells(2, 5).MergeCells and WorksheetFunction.CountA(Cells(2, 5)) < 1 Then
     ' 該当処理
End If

のようなコードで反応するのではないでしょうか。