highlight blank cells

How di I highlight blank cells in a range

This has been asked before wherein all blank cells in a range color changed to green and solution was given as below

Dim rng as Range
On error resume next
set rng = range(range("B7"),   range("G" & Range("A"&Rows.count).end(xlup).row)).specialcells(xlcelltypeblanks)
on error goto 0
if not rng is nothing then
     
    rng.Interior.ColorIndex = 4
end if

what i want is that the moment I type in the green cell the color should go bacl to normal.

sample sheet attached

Re: highlight blank cells

The code worke perfectly well, with only one problem.

As you know when we type any text and press enter the cursor moves one step ahead.

In this also after I press enter the cursor moves one step ahead with green box still highlighted. Now when I again take the cursor back to that box the green box becomes white.

Is there anyway by which as soon as I press enter the green box becomes white.

Re: highlight blank cells

thanks works fine