VBA NOW() Time Stamp - Multiple Columns

[Greenies08]

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

 

[Joe4]

Instead of:

[COLOR=#333333]Columns("j:j, l:l, m:m, o:o")[/COLOR]

you need to use:

[COLOR=#333333]Range("j:j, l:l, m:m, o:o")[/COLOR]

Also, note that there seems to be a typo in your range. L and M are consecutive columns, not "every other".
So, updating column L will update column M, which then in turn will update column N!

 

[Greenies08]

Genius - thank you ever so much

 

[Joe4]

You are welcome.