Estoy haciendo una lista desplegable en excel con un scritp pero la lista desplegable no se como darle las variable para poder intercambiar

Estoy haciendo una lista desplegable con un script y lo aplico en excel pero la lista desplegable no se como darle las variable para poder intercambiar de celda… siempre me salen fija a donde se la doy en el scritp
habra otro modo de hacer una lista desplegable que no sea con la pantalla de excel.?? o hay una convinacion directa??

donde (Range(“AD2”).Select) son las celda donde quiero la lista
xlBetween, Formula1:=“A,AA,AAA,Todos” donde agrego lo que quiero…

alguien que me ayuden

Sub Macro1()

’ Macro1 Macro


Range(“AD2”).Select
With Selection.Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:=“A,AA,AAA,Todos”
.IgnoreBlank = True
.InCellDropdown = True
.InputTitle = “”
.ErrorTitle = “”
.InputMessage = “”
.ErrorMessage = “”
.ShowInput = True
.ShowError = True
End With
End Sub