エクセルマクロ 【空白セルを無視する方法を教えてください】

マクロを独学で学び仕事に応用しているのですが、どうしても分からないことが発生してしまい、質問です。

内容は、今、エクセルシートのA1～B5の範囲で

A B
1 1 1
2 1 2
3
4 1
5 1

という形で入力されています(見難くてスミマセン)。
この状態から「A列とB列に同じ数字が入力されてれば、メッセージBOXを表示して、なおかつOKボタンを押したら該当セルを赤くする」というマクロを作りたいのですが、本来であれば1行目のみ赤くなるはずなのですが、空白セルが含まれている3行目も赤くなってしまうんです。つまり、空白セルも「同じ値」と認識されているみたいなのですが...。
この場合、空白セルを無視するにはどうしたらよいのですか？教えてください。なお、マクロは以下のように作っています。

Sub ナンバーチェック()
Dim Btn As Integer
For X = 5 To 10
If Cells(X, "A").Value = Cells(X, "B").Value Then
　Btn = MsgBox("同じ数値です", vbOK, "警告")
　If Btn = vbOK Then
　　Cells(X, "A").Interior.ColorIndex = 3
Cells(X, "B").Interior.ColorIndex = 3
End If
End If
Next
End Sub

No.1 回答者： isyuto2007 回答日時： 2007/07/06 20:22

if文でnullの場合は無視する行を追加する。

この回答へのお礼

ゴメンナサイ、どういう意味ですか？？

お礼日時：2007/07/06 21:08