Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If Target.Cells.Column = 6 Then
n = Target.Row
If Excel.Range("E" & n).Text = "" And Target.Cells.Text < "" Then
Excel.Range("E" & n).Value = Format(Now, "hh:mm:ss AM/PM")
End If
End If
End Sub


This code is to be placed in Thisworkbook module........not a sheet module.

It will run on every sheet in the workbook.


Gord Dibben MS Excel MVP


On Fri, 20 May 2011 16:45:41 -0700 (PDT), robzrob wrote:

I've tried this

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Cells.Column = 2 Then
n = Target.Row
If Excel.Range("A" & n).Text = "" And Target.Cells.Text < ""
Then
Excel.Range("A" & n).Value = Now
End If
End If
End Sub

suitably amended, and some others, but can't seem to get them to work.

I want E7 to show time as soon as F7 is <"", E8 to show time as soon
as F8 is <"", etc - for any worksheet in the workbook, not just on
one worksheet.