Hi Colin,

Am Thu, 17 Oct 2013 14:43:08 +0100 schrieb Colin Hayes:

I use this code to look at cells in column D. If any has new content ,
then it puts the date in the adjacent cell in column C :

try:

Private Sub Workbook_SheetChange(ByVal Sh As Object, _
ByVal Target As Range)

If Target.Column < 4 Or Target.Count 1 Then Exit Sub

If Target < "" Then Target.Offset(, -1) = Date

End Sub


Regards
Claus B.
--
Win XP PRof SP2 / Vista Ultimate SP2
Office 2003 SP2 /2007 Ultimate SP2