With Selection.Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertWarning, Operator:= _
xlBetween, Formula1:= _
"=OFFSET(formulacell,MATCH(C2,DBform,0),1,COUNTIF(DBform,C2),1)"
.IgnoreBlank = True
.InCellDropdown = True
.InputTitle = ""
.ErrorTitle = "Caution"
.InputMessage = ""
.ErrorMessage = "This metabolite name is not in the DB. Please add new metabolites to the DB to access full features."
.ShowInput = True
.ShowError = True
End With
End If