This bit of code (which I got from another thread) deletes any entry in column b or c if a is empty (or not a date).
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect([B:C], Target) Is Nothing Then Exit Sub
If Not IsDate(Range("A" & Target.Row)) Or IsEmpty(Range("A" & Target.Row)) Then Target.ClearContents
End Sub
How can It be modified to delete any entry if the previous cell is empty ie not allow anything in B if A is empty or C if B is empty etc
Regards
Tony
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect([B:C], Target) Is Nothing Then Exit Sub
If Not IsDate(Range("A" & Target.Row)) Or IsEmpty(Range("A" & Target.Row)) Then Target.ClearContents
End Sub
How can It be modified to delete any entry if the previous cell is empty ie not allow anything in B if A is empty or C if B is empty etc
Regards
Tony