Change the relevant part of the code to the range required defined in the
following line of code...........

If Application.Intersect(Target, Range("A1:A10")) Is Nothing Then

For the Date leave it as "A1:A10" for the Time change this to "B1:B10"

You can use this for any other range by simply changing these values.


--
Cheers
Nigel



"Hans Knudsen" wrote in message
...
Is it possible to work with Chip's two procedures at below address
http://www.cpearson.com/excel/DateTimeEntry.htm
so that dates are entered in A1:A10 and times are entered in B1:B10?

Hans Knudsen