Удаление файла excel из папки

[Utirka66]

Добрый день, уважаемые знатоки excel.

Хочу попросить у Вас помощи.

У меня есть файл со списком договоров, также есть папка в которой лежат файлы с названиями этих самых договоров, мне необходим макрос который будет брать названия этих договоров из списка и удалять эти файлы из папки, список постоянно меняется, прилагаю файл со списком.

папка находится по адресу C:\History

Всем заранее благодарен за любое решение моей проблемы....

[EducatedFool]

Макрос-то простейший.
Вот только не совсем понятно, как называются ваши файлы...
Прямо так, как написано в ячейках (2005_369092)?
Или у файлов есть расширение (например, 2005_369092.xls)?

Вот весь макрос:

Sub test()
    Dim cell As Range, ra As Range: On Error Resume Next
    Папка = "C:\History\"
    Set ra = Range([A1], Range("A" & Rows.Count).End(xlUp))
    For Each cell In ra.Cells
        Kill Папка & cell & ".xls"
    Next cell
End Sub

[Utirka66]

Низкий Вам поклон EducatedFool. все работает, извините за неправильную формулировку вопроса. Огромное спасибо...

[WordVest]

Здесь вопрос по какому критерию удалить файл надо, если автоматически, то должен быть железный ориентир, а так форму выбора удаляемых файлов надо создавать.............