Автоматическое добавление столбца во втором листе

[Manager777]

Здравствуйте!
Сам я не силен в макросах, столкнулся с такой неприятной ситуацией:
имеется на входе несколько сотен файлов с именем ABC_дата.xls
необходимо в каждый файл на всех листах добавить 1 столбец (обязательно чтоб первый был) и добавить 1000 ячеек в этот столбец содержащие имя файла.
Для примера выложил 2 файла
1ABC_20100127.xls - то что имеем на входе
2ABC_20100127.xls - вот что имеем на выходе

сам файл переименовывать не надо)

[Manager777]

Блин пришлось почитать интернет - нашел как подставлять имя файла, теперь вопрос как сделать "loop" или чтоб все файлы автоматом обрабатывались

Sheets("LIST2").Select
Columns("A:A").Select
Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
Range("A7").Select
ActiveCell.FormulaR1C1 = ActiveWorkbook.Name
Range("A7").Select
Selection.AutoFill Destination:=Range("A7:A1000"), Type:=xlFillDefault

[Скрипт]

Manager777, есть следующие способы указывать файлы, которые нужно обрабатывать:

1. сделать, чтобы во время выполнения кода открывалось диалоговое окно и можно было выбрать папку, в которой находятся книги Excel, которые надо обработать;
2. можно в самом коде написать путь папки, в которой обрабатывать книги Excel.

Нужно ещё учесть: обрабатывать книги во вложенных папках или нет.

[Казанский]

> необходимо в каждый файл на всех листах добавить 1 столбец
В примере добавлено только на одном листе. Как правильно?

[Казанский]

Для всех листов

Const FLDR = "D:\man\" 'папка с файлами

Sub bb()
Dim f$, ws
Application.ScreenUpdating = False
f = Dir(FLDR & "*.xls")
Do While f <> ""
    With Workbooks.Open(FLDR & f)
        For Each ws In .Worksheets
            ws.Columns(1).Insert
            ws.Range("A7:A1000") = Left(f, InStrRev(f, ".") - 1)
        Next
        .Close True
    End With
    f = Dir
Loop
Application.ScreenUpdating = True
End Sub

[Manager777]

СПАСИБО ЗА ОТВЕТЫ!!!
Решил эту задачу, хоть и криво но решил))