VBAで入力セルに何も入力しない場合は真下のセルを着色しない

Question

###前提・実現したいこと
Excelシートのセルに文字を入力すると、真下のセルが着色される機能を作っています。しかし、セルを入力可能状態にして何も入力せずにEnterを押しても着色されてしまいます。条件分岐でセルに何も入力されていないときは着色しないような機能をVBAで実装したいです。

###該当のソースコード

Private Sub Worksheet_Change(ByVal Target As Range)
    Cells(Target.Row + 1, Target.Column).Interior.Color = RGB(255, 0, 0)
End Sub

###試したこと
下記のようにIf文を書いてみましたが、入力可能状態にすると着色されてしまい、
うまくいきませんでした。

Private Sub Worksheet_Change(ByVal Target As Range)
    If Cells(Target.Row, Target.Column).Interior.Color <> " " Then
        Cells(Target.Row + 1, Target.Column).Interior.Color = RGB(255, 0, 0)
    End If
    
End Sub

###補足情報(言語/FW/ツール等のバージョンなど)
VBA
Excel

よろしくお願いします。

Answer 1

.valueを用いて、「値が入っているかどうか」を判定してはいかがでしょうか？
参考

Private Sub Worksheet_Change(ByVal Target As Range)
    If Cells(Target.Row, Target.Column).Value <> "" Then
        Cells(Target.Row + 1, Target.Column).Interior.Color = RGB(255, 0, 0)
    End If

End Sub

なお求めておられる回答から多少ずれますが、やりたいこととして、もしかするとVBAを用いなくても条件付き書式で簡単に実現できませんか？
参考リンク

追記
Trimを使ってみます。参考リンク

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim value As String
    
    value = Cells(Target.Row, Target.Column).Value

    If Trim(value) <> "" Then
        Cells(Target.Row + 1, Target.Column).Interior.Color = RGB(255, 0, 0)
    End If

End Sub

Comments

[webillion]

ご回答ありがとうございます。この場合、セルにスペースを入れると文字が入っていると文字が入力されていると見なされてしまいますが、スペースを１つ２つ...と入れても空欄と見なして、着色しないようにはできますか？

[akabee]

Trim関数を使ってみましょうか？回答を修正しておきます。

[webillion]

Trim関数を使うのですね！！思った通りになりました。非常に参考になります。
ありがとうございます。

Answer 2

    If Cells(Target.Row, Target.Column).Interior.Color <> " " Then

の部分を

    If Cells(Target.Row, Target.Column).Text <> "" Then

にするとうまくいくでしょう。