Выпадающий список с добавлением новых элементов

[agregator]

Во вложенной книге можно добавлять новые элементы в выпыдающий список в ячейке D1. Как сделать, чтобы можно было добавлять новые элементы в ячейках с D1 по D10?

[Teslenko_EA]

Здравствуйте agregator.
"Как сделать, чтобы можно было добавлять ...?" изменив подобным образом код листа:

Private Sub Worksheet_Change(ByVal Target As Range)
Const s1 = "Добавить введенное имя ", s2 = " в выпадающий список?", s3 = "People"
Dim lReply&, s$
If Target.Cells.Count > 1 Then Exit Sub
s = Target.Address
If Left(s, 3) = "$D$" And Val(Right(s, 2)) < 11 Then
    If IsEmpty(Target) Then Exit Sub
    If WorksheetFunction.CountIf(Range(s3), Target) = 0 Then
        If MsgBox(s1 & Target & s2, vbYesNo + vbQuestion) = vbYes Then _
            Range(s3).Cells(Range(s3).Rows.Count + 1, 1) = Target
    End If
End If
End Sub

Евгений.

[agregator]

Спасибо за помощь. Работает как надо.

[wwwdrakon]

Подскажите как сделать чтобы такой список был на другом листе.
Или как скрыть список , чтобы он не был виден и не распечатывался.