Skip to playerSkip to main content
  • 3 years ago
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Cells.Count > 1 Then Exit Sub
If Not Intersect(Target, Range("B:B")) Is Nothing Then
Target.Offset(0, 4).Value = Date
End If
End Sub
Be the first to comment
Add your comment

Recommended