BeforeDoubleClick и SelectionChange

[СтаниславАВ]

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("Заказ_недельный[Код]") Is Nothing Then
Call Данные_товара.Show(0) 'окно для создания/редактирования
If Not Intersect(Target, Range("Заказ_недельный[№3]") Is Nothing Then
Call Данные_клиента.Show(0) 'окно для создания/редактирования
End If
End Sub

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Cancel = True
End Sub

Использую офис 2007. Создал таблицу. Нажимаю в таблице Заказ_недельный в любой ячейке столбца [Код] выводится пользовательская форма Данные_товара, при нажатии на столбец [№3] выводится другая пользовательская форма Данные_клиента. И все это на одном листе.
Макрос выдаем ошибку. В чем дело???

[EducatedFool]

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Select Case False
        Case Intersect(Target, Range("Заказ_недельный[Код]")) Is Nothing
            Call Данные_товара.Show(0)    'окно для создания/редактирования
        Case Intersect(Target, Range("Заказ_недельный[№3]")) Is Nothing
            Call Данные_клиента.Show(0)    'окно для создания/редактирования
        Case Else
            ' ничего не делаем, если изменены другие ячейки
    End Select
End Sub

[СтаниславАВ]

Сообщение от EducatedFool

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Select Case False
        Case Intersect(Target, Range("Заказ_недельный[Код]")) Is Nothing
            Call Данные_товара.Show(0)    'окно для создания/редактирования
        Case Intersect(Target, Range("Заказ_недельный[№3]")) Is Nothing
            Call Данные_клиента.Show(0)    'окно для создания/редактирования
        Case Else
            ' ничего не делаем, если изменены другие ячейки
    End Select
End Sub

Спасибо большое за помощь. Все заработало.