Excel VBA Макросы. Как пройтись по всем ячейкам указанного диапазона, у которых заданный цвет?

[Посетитель]

Как пройтись по всем ячейкам выделенного диапазона, у которых белый цвет? Вернее, в ячейке отсутствует цвет.
Ячейки разбросаны в тетрисном порядке, бессистемно.

[Администратор]

Sub Макрос()
   
    Dim Ячейка As Range
   
    For Each Ячейка In Selection.Cells
        If Ячейка.Interior.Pattern = xlNone Then
            ' Действие с ячейкой.
        End If
    Next Ячейка
   
End Sub

[Посетитель]

Круто! Благодарность огромная!