Hi Peter,

It is rarely necessary or desirable to make selections.

Perhaps you could use (or modify) the following:

Cells(Rows.Count, "A").End(xlUp). _
Offset(0, 4).Formula = "=Today()"


Or to enter a static date:


Cells(Rows.Count, "A").End(xlUp).Offset(0, 4) = Date


---
Regards,
Norman



"petergamels" wrote in message
...
I have a spreadsheet of jobs. I can go to the next line and enter new
number
but cannot GoTo column say 5 to enter "TODAY".
Thanks in anticipation of help.
--
prd