Процедура при выборе значения из выпадающего списка

[Sha]

Как при выборе значения из выпадающего списка в ячейке выполнить мою процедуру?

[андей]

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A1")) Is Nothing Then
If Target.Count > 1 Then Exit Sub
If Target.Value > 0 Then
'что вы хотите


On Error Resume Next
End If
End If

End Sub

[mchip]

А как организован выпадающий список? Элементом управления формы, элементом ActiveX или вообще через проверку данных?

[Sha]

через проверку

[Sha]

Вопрос все еще актуален. Список делалю проверкой, отобрать данные я и сам смогу, нужно знать какая процедура выполняется в тот момент когда я выбираю значение из списка, чтобы туда и вписать мой обработчик. надеюсь понятно

[KlerKK]

Может быть так?

Private Sub Worksheet_Change(ByVal Target As Range)
    'в ячейке D1 задана проверка данных
    If Target.Address = "$D$1" Then MsgBox ActiveCell.Value
End Sub