Sub НайтиБелыйЦветЗаливки()
Dim rng As Range
    For Each rng In ActiveSheet.UsedRange.Cells
        If rng.Interior.Color = 15921906 Then
            If MsgBox("Искомая заливка найдена в ячейке " & rng.Address(0, 0) & " Удалить заливку?", vbYesNo + 32, "Ваш выбор...") = vbYes Then
                rng.Interior.ColorIndex = xlNone
            End If
        End If
    Next
End Sub

Sub НайтиБелыйЦветЗаливки()
Dim rng As Range
    For Each rng In ActiveSheet.UsedRange.Cells
        If rng.Interior.Color = 16777215 Then rng.Interior.ColorIndex = xlNone
    Next
End Su

Sub НайтиБелыйЦветЗаливки()
Dim rng As Range
    For Each rng In ActiveSheet.UsedRange.Cells
        If rng.Interior.ColorIndex = 2 Then rng.Interior.ColorIndex = xlNone
    Next
End Sub