Или так (
RGB):
If Range("A1").Interior.Color = RGB(0, 0, 0) Then
Range("A1").Interior.Color = RGB(255, 255, 255)
End If
Или вот так:
If Range("A1").Interior.Pattern = xlSolid Then
Range("A1").Interior.Pattern = xlNone
End If
В первом варианте отслеживается черный цвет, заливка белая, во втором - снимается заливка