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

for one thing your OR syntax must be repeated
target.column=4 or target.column=10 or etc

--
Don Guillett
SalesAid Software

"newbie6182000"
wrote in message
news:newbie6182000.1rxaeb_1120946702.3211@excelfor um-nospam.com...

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

To make it applicable to the whole workbook, create the event procedure in
the ThisWorkbook code module, with a different first line

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


--
HTH

Bob Phillips

"newbie6182000"
wrote in message
news:newbie6182000.1rxaeb_1120946702.3211@excelfor um-nospam.com...

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