Макрос_Открытие всех книг Excel в папке

[Alexsandrr]

Поискав на форуме ничего не нашел похожего, вынужден обратиться повторно за помощью в создании данного макроса.
В папке "Общие папки" находятся 3 книги Excel (причем их количество может меняться), какой макрос позволяет открывать все Excel книги по очереди в данной папке и проводить с каждой книгой преобразования внутри (к примеру удаление столбцов "A:B").
Пример:
В папке "Общие папки" находится 3 книги Excel, каждую книгу нужно:
Книга1
1. открыть книгу
2. удалить столбцы "A:B"
3. закрыть книгу сохранив
Книга2.....
Книга3.....

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

[EducatedFool]

Пример такого макроса:
http://excelvba.ru/code/CombineFiles

Надо только заменить строки

Set sh = WB.Worksheets(1)    ' будем брать данные с первого листа
           ' берем диапазон ячеек с ячейки B1 до последней заполненной в столбце B
           Set ra = sh.Range(sh.Range("b1"), sh.Range("b" & sh.Rows.Count).End(xlUp))

            ' ==== переносим данные в наш файл (shb - кодовое имя листа, куда помещаем данные)
           shb.Range("a" & shb.Rows.Count).End(xlUp).Offset(1).Resize(, ra.Rows.Count).Value = _
            Application.WorksheetFunction.Transpose(ra.Value)
            ' ==== конец обработки данных из очередного файла

            WB.Close False: DoEvents    ' закрываем обработанный файл без сохранения изменений
           pi.Log vbTab & "Файл успешно обработан."

            ' перемещаем обработанный файл из папки InvoiceFolder$ в папку ArchieveFolder$
           Name Filename As ArchieveFolder$ & Dir(Filename, vbNormal)

на

Set sh = WB.Worksheets(1)    ' будем работать с первым листом
           ' удаляем первые 2 столбца
           sh.range("a:b").entirecolumn.delete

            WB.Close TRUE: DoEvents    ' закрываем обработанный файл с сохранением изменений
           pi.Log vbTab & "Файл успешно обработан."

[Alexsandrr]

Спасибо большое за помощь!