選択した範囲内のデータを含むセルをカラー化する

Question

誰かが次のことを実現する方法を知っていますか？

私は、Excelシートのセルの範囲を選択しました。ショートカットキーを押した後、データを含む選択された範囲の各セルは赤色で塗りつぶされます。

あり、そのためのデフォルトのExcelの機能ではないようだが、おそらくそれは、VBAで行うことができますか？

残念ながら、次のコードが期待どおりに動作しません：この上

Sub ColorizeCells() 
    Dim Data As Range 
    Dim cell As Range 
    Set Data = Selection 

    For Each cell In Data 
     If Not cell.Value Is Nothing Then 
      cell.Interior.ColorIndex = 4 
     End If 
    Next 

End Sub 

任意の提案を高く評価されています。

Answer 1

ティム・ウィリアムズのヒントは、トリックを行いました。ありがとう！

次のコードは動作します：

Sub ColorizeCells() 
    Dim Data As Range 
    Dim cell As Range 
    Set Data = Selection 

    For Each cell In Data 
     If Len(cell.Value) > 0 Then 
      cell.Interior.ColorIndex = 4 
     End If 
    Next 
End Sub