Sub ejemplo() ActiveSheet.Shapes("Lista desplegable 1").Select valor = Selection.List(Selection.ListIndex) MsgBox (valor) End Sub