Try:


Code
-------------------
tih = Selection
ActiveCell.Offset(0, 1).Select
tih2 = Selection
ActiveCell.Offset(0, 2).Select
tim = Selection
ActiveCell.Offset(0, 1).Select
tim2 = Selection
TimeIn = TimeSerial(tih & tih2, tim & tim2, 0
-------------------



--
kkkni
-----------------------------------------------------------------------
kkknie's Profile: http://www.excelforum.com/member.php...nfo&userid=754
View this thread: http://www.excelforum.com/showthread.php?threadid=26549