Add in the line:
Else
debug.print cell.value & cell.address
before End If. It will tells you which cell prompts the error on the immediate window on your editor
VBA Fill Color Based on Cell Text
Add in the line:
Else
debug.print cell.value & cell.address
before End If. It will tells you which cell prompts the error on the immediate window on your editor