Excel 2003 Difficulty with private sub code

I have a spreadsheet in which I have a number of columns where information is entered. What I’m trying to achieve is that when a date is entered in one column another column becomes mandatory and no further information can be entered until this column is filled. The columns in question are B and C. e.g. If a date is entered in cell B3 a response must be entered in C3. I have tried to adapt the following code to achieve this but without much success


Private Sub Worksheet_SelectionChange1(ByVal Target As Range)
Dim myCell As Range
Dim myRange As Range

For Each myCell In Range("B3:B102")
If (myCell.Value) = ("dd/mm/yy") Then
If Len(myCell.Offset(, 1).Value) = 0 Then
MsgBox "You must enter the nature of the complaint", vbCritical, "Additional Information Required"
Application.EnableEvents = False
myCell.Offset(0, 1).Select
Application.EnableEvents = True
Exit Sub
End If
End If
Next myCell
End Sub

many thanks for your assistance

I have an existing Private Sub Worksheet_SelectionChange(ByVal Target As Range) which is why i added the 1 to this commend

Many thanks for the guidance, I have amalgamated it into the original Private sub with the following code. Much appreciated

Next myCell
For Each myCell In Range("B3:B102")
If myCell.Value >= 1 Then
If Len(myCell.Offset(, 1).Value) = 0 Then
MsgBox "You must enter the nature of the complaint before continuing", vbCritical, "Nature of complaint Required"
Application.EnableEvents = False
myCell.Offset(0, 1).Select
Application.EnableEvents = True
Exit Sub
End If
End If
Next myCell
End Sub