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