Clear cell with text in green color

I tested the code

it clears out the values ​​0
values ​​but not green
to run the code, I make the following changes:

 If rng = 0 Or rng.Font.Color = vbGreen Then

Thank you for your help

has soon