i have the code below running a dropdown menu. when certain parameters
change the value last selected for the cell might no longer be available. my
issue is that i need to reset the default value if the previously selected
value is no longer available.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim t, List
For t = 18 To 24
If Cells(t, "H") < "0" Then List = List & "," & Cells(t, "H")
Next
With Range("E14").Validation
.Delete
.Add xlValidateList, Formula1:=List
.InCellDropdown = True
End With
End Sub