Макрос только для ячеек указанного диапазона

Люди, хелп, сбился с ног, бегая по инету.

Как сделать так, чтоб нижеследующий макрос запускался только по нажатию на ячейку из списка ячеек "Диапазон"





Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, ByRef Cancel As Boolean)




Dim text_cell As Variant
Dim a As String
Dim M() As String
Dim J
Dim cell_all As Range



Range("Äèàïàçîí").Rows.EntireRow.Hidden = False
text_cell = Range(ActiveCell.AddressLocal).Value
a = ActiveCell.Cells.Address
For Each cell_all In Range("Äèàïàçîí")



cell_all.Interior.ColorIndex = xlNone
If cell_all = text_cell Then
cell_all.Interior.ColorIndex = 36
Dim s As String
Dim b As Integer
cell_all.Offset(0, -1).Select
b = ActiveCell.Cells.Value



If s = "" Then
s = CStr(b)
Else
s = s & ";" & CStr(b)
End If
End If
Next
Debug.Print s
M = Split(s, ";")
For Each cell_all In Range("Òàáëèöà")
For J = 0 To UBound(M)
If cell_all.Value = M(J) Then GoTo 1
Next J
a = cell_all.Row
Rows(a).EntireRow.Hidden = True
1
Next




End If





Скрины таблицы есть в первой моей теме Форума. Это вторая))

Заранее спасибо.

0