Hi, So I've tried something like this, and i'm not getting any errors: but the cells aren't locking.. any ideas?
Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, Range("B1:F100")) Is Nothing Then
If Range("B" & Target.Row) = "" And Range("C" & Target.Row) = "" And Range("D" & Target.Row) = "" Then
Range("A" & Target.Validation).Delete
Else
With Range("A" & Target.Row).Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:= _
"=IF(NOT(AND(B" & Target.Row & "="""",C" & Target.Row & "="""",D" & Target.Row & "="""",E" & Target.Row & "="""")),Priority,"""")"
End With
End If
If Range("A" & Target.Row).Value = "" Or Range("E" & Target.Row).Value = "mm/dd/yy" _
Or Range("E" & Target.Row).Value = "" Then
Range("F" & Target.Row).Locked = True
Else
Range("F" & Target.Row).Locked = False
End If
End If
End Sub
Bookmarks