Hey All,
I need help getting these two worksheet changes into one sheet, which means I have to combine them and I can't, for the life of me, figure out how to do this. Any help would be greatly appreciated. It's the same code except for different columns.
Thanks,
Brian
Private Sub Worksheet_Change(ByVal Target As Range)
With Target
If .Cells.Count > 1 Then Exit Sub
If Intersect(.Cells, Me.Range("C:C")) Is Nothing Then Exit Sub
.Offset(0, -2).Value = Now '''''' or Now
End With
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
With Target
If .Cells.Count > 1 Then Exit Sub
If Intersect(.Cells, Me.Range("f:f")) Is Nothing Then Exit Sub
.Offset(0, -4).Value = Now '''''' or Now
End With
End Sub
Bookmarks