нужен макрос для запуска макроса по событию

[VITA11111]

т.е. мысля такая
если выделенная ячейка равняется одной из ячеек в массиве именнованых ячеек в книге тогда запускается макрос по имени выделенной ячейки

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
     If Target.Address = Range("ТП_МИНУС").Address Then: Run "лист16.ТП_МИНУС"
     If Target.Address = Range("ТП_ПЛЮС").Address Then: Run "лист16.ТП_ПЛЮС"
     If Target.Address = Range("ОФП_МИНУС").Address Then: Run "лист16.ОФП_МИНУС"
     If Target.Address = Range("ОФП_ПЛЮС").Address Then: Run "лист16.ОФП_ПЛЮС"
     If Target.Address = Range("СФП_МИНУС").Address Then: Run "лист16.СФП_МИНУС"
     If Target.Address = Range("СФП_ПЛЮС").Address Then: Run "лист16.СФП_ПЛЮС"
End Sub

	
	

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim x As Range
Application.ScreenUpdating = False
Set x = ActiveWorkbook.Names
If Target.Names = x Then:  Run "лист16.[ActiveCell.NameLocal]"
End Sub

примерно чтото вот такое прошу прощения за безграмотность

[doober]

Так должно работать.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    For Each nam In ActiveWorkbook.Names
        If nam.Name = Target.Name.Name Then
            Run "лист16." & Target.Name.NameLocal 
            Exit For
        End If
    Next
End Sub

[DiemonStar]

а так не проще?

Private Sub Worksheet_Change(ByVal Target As Range)
 On Error GoTo Ex
  Run "лист16." & Target.Name.NameLocal
Ex:
End Sub

[VITA11111]

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error GoTo Ex
  Run "лист16." & Target.Name.NameLocal
Ex:
End Sub

2 вариант лучше работает
1 вариант при выделении не имменованой ячейки срабатывает ошибка

спасибо всем