Переименование txt файлов по таблице

[timer_ru]

Добрый день уважаемые форумчане!!!
Столкнулся с проблемой переименования файлов, существует множество текстовых файлов, мне их нужно переименовать в новые имена и для этого воспользовался найденным макросом.
Авторство макроса не мое, но автору я благодарен..
В таблице встречаются повторяющиеся названия, на этом макрос останавливается...
Помогите как дополнить макрос чтобы каждый последующий изменяемый файл имел иное оригинальное название
(Пример: файл;файл(1);файл(2);...)
P.s при загрузке из интренета одинаковых файлов - файлы также формруют такую последовательность...
Заранее всем Вам благодарен...

[pashulka]

Если без проверки существования исходных файлов, то :

Private Sub ReNameFiles()
    Dim lngRow&, lngLastRow&, lngCount&
    Dim strPath$, strOldName$, strNewName$
    strPath = "C:\1\"
    lngLastRow = Cells(Rows.Count, 1).End(xlUp).Row
    
    For lngRow = 2 To lngLastRow
        strOldName = strPath & Cells(lngRow, 1) & ".txt"
        strNewName = strPath & Cells(lngRow, 2) & ".txt"
        Do While Len(Dir(strNewName))
           lngCount = lngCount + 1
           strNewName = strPath & Cells(lngRow, 2) & "(" & lngCount & ").txt"
        Loop
        Name strOldName As strNewName: lngCount = 0
    Next
End Sub