On May 21, 1:07*am, Gord Dibben wrote:
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.- Hide quoted text -

- Show quoted text -

Retyped everything into that new workbook - now running - thanks very
much.