Hi,

Can anyone explain why the below code will not work for multiple columns? When I change the column from only 'B' to multiple columns for some reason it doesn't work & I can't figure out why (I'm sure it's something simple) :/

Private Sub Worksheet_Change(ByVal Target As Range)
Dim rng As Range
Dim rCell As Range

Set rng = Intersect(Me.Columns("B, S"), Target)
If Not rng Is Nothing Then
For Each rCell In rng.Cells
With rCell
If Not IsEmpty(.Value) Then
.Offset(0, 1).Value = Date
Else
.Offset(0, 1).Value = vbNullString
End If
End With
Next rCell
End If
Thanks guys!