Узнать индекс

[Gregor]

Доброе утро!
Помогите с вопросом.
есть такой код с выпадающим списком

With Selection.Validation
            .Delete
            .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
            xlBetween, Formula1:="=configs!$B$1:$B$4"
            .IgnoreBlank = True
            .InCellDropdown = True
            .InputTitle = ""
            .ErrorTitle = ""
            .InputMessage = ""
            .ErrorMessage = ""
            .ShowInput = True
            .ShowError = True
 End With

Как после выбора узнать индекс выбранного элемента?