just right click the sheet tabview codeinsert thisSAVE.

Private Sub Worksheet_Change(ByVal Target As Range)
If target.row<4 or Target.Column < 2 Then Exit Sub
Target.Offset(0, 4) = Time
End Sub


--
Don Guillett
SalesAid Software

"AYPCN" wrote in message
...
if a4 has data of any kind how can i get f4 to Put the current time in it
hour:min:PM not with date
to view work book i am working to understand it more at
http://yourprintinghq.com/Payment.xls
it has comments on it for the formulas i am looking for

Thanx,
Paul M.