The following code below will need to be applied to the sheet's code for
whichever sheet you want to watch for this date input.

Let me know if you need any help...

Mark Ivey


Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim i As Long

' This for loop will work for rows 1 to 300
' change it to suit your needs
For i = 1 To 300
' The following condition checks for each cell
' in column B to see if it has a date in it.
' Then it applies a 1 to the same row, but
' for columns out from its current position.
' Change it to suit your needs.
If IsDate(Cells(i, 2).Value) = True Then
Cells(i, 2).Offset(0, 4).Value = 1
End If
Next
End Sub