помогите исправить код

[Screame]

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

Private Sub Worksheet_Change(ByVal Target As Range)

Dim lReply As Long

    If Target.Cells.Count > 1 Then Exit Sub
    If Target.Address = "$D$2" Then
     If IsEmpty(Target) Then Exit Sub
       If WorksheetFunction.CountIf(Range("People"), Target) = 0 Then
          lReply = MsgBox("Добавить введенное имя " & _
                         Target & " в выпадающий список?", vbYesNo + vbQuestion)
          If lReply = vbYes Then
              Range("People").Cells(Range("People").Rows.Count + 1, 1) = Target
          End If
       End If
     End If
End Sub

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

[EducatedFool]

Попробуйте такой код:

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$D$2" Then
        If IsEmpty(Target) Then Exit Sub
        If [People].Find(Target) Is Nothing Then
            If MsgBox("Добавить введенное имя " & Target & " в выпадающий список?", vbYesNo + vbQuestion) = vbYes Then
                [People].Offset(10000).End(xlUp).Offset(1) = Target
            End If
        End If
    End If
End Sub

[Screame]

Спасибо, все работает!!!!!!!!