opulate a value on cell based on theme colors on other cell

[tongcy]

I wonder is there a way to have a function to auto populate a value on cell based on theme colors on other cell ?
For instance, if cell A theme colors is red then populate value 'Exclude' to cell B else if cell A theme colors is green then populate value 'Include' else blank

 

[tongcy]

how can i use excel Find function to lookup background color ? I've a code as below: here i use Find to lookup value ".", how can we lookup background color for instance red color?

lrow = Range("B" & Rows.Count).End(xlUp).Row
Set srcRng = Range("B1:B" & lrow)
Set findRng = srcRng.Find(What:=".", LookIn:=xlValues, LookAt:=xlPart)