добавить этот макрос "$с$2"

[buxrasid]

01 Private Sub Worksheet_Change(ByVal Target As Range)
02
03 Dim lReply As Long
04
05 If Target.Cells.Count > 1 Then Exit Sub
06 If Target.Address = "$D$2" Then
07 If IsEmpty(Target) Then Exit Sub
08 If WorksheetFunction.CountIf(Range("Pe ople"), Target) = 0 Then
09 lReply = MsgBox("Добавить введенное имя " & _
10 Target & " в выпадающий список?", vbYesNo + vbQuestion)
11 If lReply = vbYes Then
12 Range("People").Cells(Range("People ").Rows.Count + 1, 1) = Target
13 End If
14 End If
15 End If
16 End Su

[doober]

Письмо на деревню дедушке от Вани Жукова?