Добавление выпадающего списка к ячейке - VBA

Формулировка задачи:

Всем, привет! Ситуация: программно создается несколько книг. Необходимо что бы в ячйках A1, A2,A3 созданных книг появлялся выпадающий список известных значений(значения текстовые). Помогите с реализацией!

Решение задачи: «Добавление выпадающего списка к ячейке»

textual
                            Листинг программы 
                        

                            Cells(1, 1).Validation.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= xlBetween, Formula1:="=$I$11:$I$14"
Cells(1, 1).Validation.IgnoreBlank = True
Cells(1, 1).Validation.InCellDropdown = True
Cells(1, 1).Validation.InputTitle = ""
Cells(1, 1).Validation.ErrorTitle = ""
Cells(1, 1).Validation.InputMessage = ""
Cells(1, 1).Validation.ErrorMessage = ""
Cells(1, 1).Validation.ShowInput = True
Cells(1, 1).Validation.ShowError = True
                        