Sorry, I had changed the code that I gave you. You need to add the line

If Target.Value = "" Then Exit Sub

at the top...

HTH,
Bernie
MS Excel MVP


"Bernie Deitrick" <deitbe @ consumer dot org wrote in message
...
Select the cell and press delete - don't overwrite it with a zero....

HTH,
Bernie
MS Excel MVP


"vldavis809" wrote in message
...

Bernie,

That worked great!!!

I have one question, if I enter data and decide it was incorrect, then
delete the data, it now defaults to "0000" and reads as 1200 midnite. I
have to delete the entire row to be able to remove the data. I know I
can overwrite it, but there may be a time where there is a keystroke
error.

It has to remain blank because there is a formula that reads the
information somewhere else to calculate certain time frames.

Any ideas?


--
vldavis809
------------------------------------------------------------------------
vldavis809's Profile: http://www.excelforum.com/member.php...o&userid=36146
View this thread: http://www.excelforum.com/showthread...hreadid=571361