It is already in the code, just read it...Of course, works for 1 cell, as this line says:
If Target.Count > 1 Then Exit Sub
If the target cell is cleared, the line of code below, which is already in the code above, will reset the cell color settings.
If Len(Target) = 0 Then Target.Interior.ColorIndex = 2: Target.Font.ColorIndex = 1