Еще о Range

[Trimbl]

Уважаемые форумчане, здравствуйте!
Подскажите, что не нравится VBA в моем написании объекта Range.
Суть дела состоит в том, что при условии – если одна ячейка из диапазона ячеек принимает значение «Подрядчик»,- производятся определенные действия макроса (например: Копирование строки).
Есть работающий код для конкретной ячейки D7
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$D$7" Then
If IsEmpty(Target) Then Exit Sub
If Range("D7") = "Подрядчик" Then
CALL Rows(20).Copy
End If
End If
End Sub
Вопрос.
А, как распространить условие на диапазон ячеек(в случае вставки /удаления строк, адрес может быть и D8 и D6)?
Мое «творение» работать не хочет.
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = Range(Cells(7, 3), Cells(100, 3)) Then
If IsEmpty(Target) Then Exit Sub
If Range(Cells(7, 3), Cells(20, 3)) = "Подрядчик" Then
CALL Rows(20).Copy
End If
End If
End Sub
Благодарю.

[EducatedFool]

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Cells.Count > 1 Then Exit Sub
    If Intersect(Target, Range("d3:d100")) Is Nothing Then Exit Sub
    If IsEmpty(Target) Then Exit Sub

    If Target = "Подрядчик" Then
       Rows(20).Copy
    End If
End Sub

[slan]

выкиньте его совсем(проверку диапазона)

пишите просто:
Private Sub Worksheet_Change(ByVal Target As Range)

If IsEmpty(Target) Then Exit Sub
If target = "Подрядчик" Then
CALL Rows(20).Copy
End If
End Sub

[Trimbl]

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

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Cells.Count > 1 Then Exit Sub
    If Intersect(Target, Range("d3:d100")) Is Nothing Then Exit Sub
    If IsEmpty(Target) Then Exit Sub

    If Target = "Подрядчик" Then
       Rows(20).Copy
    End If
End Sub

EducatedFool ! Огромное спасибо.

[Trimbl]

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

выкиньте его совсем(проверку диапазона)

пишите просто:
Private Sub Worksheet_Change(ByVal Target As Range)

If IsEmpty(Target) Then Exit Sub
If target = "Подрядчик" Then
CALL Rows(20).Copy
End If
End Sub

slan, весьма признателен за быстрый отклик. Объязательно попробую и Ваш вариант.