I have been trying to use this modified macro, but there seems to be a
problem with a debug error. In addition, how can I use this macro for
the whole workbook. Is there a way of copying a template worksheet and
rename it with a customer name and also put the entry in cell a1. Any
help will be great.

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
'a modification to the one written previously by Barrie Davidson
If Target.Column = 4 Or 10 Or 16 Or 22 Then
'If Target.Offset(0, -3).Cells = "" Then
Target.Offset(0, -3).Value = Now()
End If
'End If
End Sub

Original that seems to work

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
'Written by Barrie Davidson
If Target.Column = 4 Then
'If Target.Offset(0, -3).Cells = "" Then
Target.Offset(0, -3).Value = Now()
End If
'End If
End Sub


--
newbie6182000
------------------------------------------------------------------------
newbie6182000's Profile: http://www.excelforum.com/member.php...o&userid=25068
View this thread: http://www.excelforum.com/showthread...hreadid=385874