Greenies08
New Member
- Joined
- Apr 4, 2011
- Messages
- 22
I thought it might be easy to add additional columns to the VBA so every other column produced a time stamp, can someone help please?
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Columns("j:j, l:l, m:m, o
")) Is Nothing Then
For Each i In Intersect(Target, Columns("j:j, l:l, m:m, o
"))
If Not IsEmpty(i) Then
i.Offset(0, 1).Value = Now
Else
i.Offset(0, 1).ClearContents
End If
Next i
End If
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Columns("j:j, l:l, m:m, o

For Each i In Intersect(Target, Columns("j:j, l:l, m:m, o

If Not IsEmpty(i) Then
i.Offset(0, 1).Value = Now
Else
i.Offset(0, 1).ClearContents
End If
Next i
End If
End Sub