Excel VBA: Определить цвет ячейки

Определяем цвет ячейки в Excel с помощью макроса. Задача определить в столбике ячейки у которых есть желтый цвет и очистить все строку.

Sub Определить_цвет()
'определяем количество строк
PosStr = Cells.SpecialCells(xlLastCell).Row

For i = 2 To PosStr
'сравниваем ячейки в столбике 3 с цветом
If (Cells(i, 3).Interior.Color = 65535) Then
'очищаем строку
Rows(i).ClearContents
End If
Next i
End Sub