Hier mal zwei Makros. Einmal wird die gerade aktive Zelle mit einem Dropdown bestückt . Das zweite macht das mit der Zelle S28 

Zwei mal eine Validation auf die selbe Zelle ohne eine bestehende Validation vorher zu löschen funktioniert nicht. 

Public Sub DropDownListe1()

ActiveCell.Validation.Delete
ActiveCell.Validation.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Formula1:="In,Out"

End Sub


Public Sub DropDownListe2()

Worksheets("Tabelle1").Range("S28").Validation.Delete
Worksheets("Tabelle1").Range("S28").Validation.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Formula1:="A,B,C,D,E"

End Sub