Создание файла на основании открытого

[lecko]

Здраствуйте. Подскажите пожалуйста, какай код нужно написать в ВБА чтобы при открытии файла 2 создавалась книга с названиями, которые есть в столбце А файла 1. Вообще вопрос трудоемкий и не знаю, описывать ли его полностью или разбить на части. Но хотел начать с етого.
Добавил авложение с 2 файлами

[doober]

 Sub ghtlghbznbz()
Dim CL As Integer, DDT, WB As Workbook
DDT = Sheets("Лист1").Range("A2:A" & Range("A65500").End(xlUp).Row)
 CL = UBound(DDT)
  Application.SheetsInNewWorkbook = CL
Set WB = Workbooks.Add
For n = 1 To CL
WB.Worksheets(n).Name = DDT(n, 1)
 Next
 Application.SheetsInNewWorkbook = 3
End Sub

[lecko]

Спасибо. Макрос, как я Вас понял, включается при помощи старт в макросах?
Вопрос 2: какую формулу задать, чтобы в файле 2 в столбце А [(2)A] выводились названия листов файла 1, (2)В - 1(С, Е, G, I, если они заполнены), (2)С - 1(D,F,H,J соответсвенно).
PS подскажите простой курс лекций либо короткую книгу по основах ВБА, благодоря каким, я бы мог подучиться, а у Вас консультироваться. Заранее благодарю

[doober]

1. Где то так
2. Настолько в формулах не силен.

Вообще вопрос трудоемкий

огласите полностью.
Возможно и общее решение будет проще.

[lecko]

Может не совсем конкретно описал проблему. На примере первого предприятия показал какой результат хотел бы я видеть.

[doober]

Как описали,так и сделал.

[lecko]

Дубер! Это круто! Благодарю. Есть еще один вопросик: припустим в файле1 есть 2 фирмы, которые занимают не 1 строчку, а 3. Как в таком случае изменить код чтобы создавались не 3 листа с одинаковыми названиями, а 1 лист, длинной в 3 раза большей? Еще раз лчень благодарен Вам.
Добавил пример

[doober]

вопрос.
Какое максимальное количество фирм ( по наименованию) у вас меньше 255 или больше 255
Не строк.

[lecko]

Меньше чем 255. Около 75-80.

[doober]

Я думаю.что все предусмотрел