You probably want this

Code:
--------------------
Sub GateIN()
If ActiveCell = "" Then
ActiveCell.Value = Now
Else
ActiveCell.Offset(0, 1).Value = Now
End If
End Sub

--------------------
Luke M;421239 Wrote:
Sub GateIN()
ActiveCell.value = Now
End sub
--
Best Regards,

Luke M
*Remember to click "yes" if this post helped you!*


"time clock watcher" wrote:

Would like to make a Gate sign in sheet with a macro named ("GateIN")
that
will return the current date/time in the active cell only. When the
same
macro is run in an other cell I'd like the later current time to be
entered
but leave the previous cell un-touched.


--
Simon Lloyd

Regards,
Simon Lloyd
'The Code Cage' (http://www.thecodecage.com)
------------------------------------------------------------------------
Simon Lloyd's Profile: http://www.thecodecage.com/forumz/member.php?userid=1
View this thread: http://www.thecodecage.com/forumz/sh...d.php?t=117185