User_abc,И что вам нужно ответить? Абсолютно рабочий код.   Ток непонятно зачем 2 раза его записывать, как и написали в теме по той ссылке которую приводите.

Значит нет таких файлов. Или нет прав их переименовывать. Что именно означает ошибка 52 - я на память не знаю.
Гугль подсказал:
А ещё бывало, что пытались переименовать запрещённым именем!

Я пас - запрещено скачивать архивы и файлы с макросами....

Мож Вы несколько раз пытаетесь переименовать то, что уже переименовано?

Попробовал все работает!
В столбце A-наименования файлов существующих
В столбце B-наименования на которые необходимо поменять
И переменную sRath переписал с на Как-то так!

Доброй ночи, всем!
А можно этот макрос: настроить так, чтобы при переименовании в конце добавлял "_1.jpg", "_2.jpg", "_3.jpg", "_4.jpg"... в нужном кол-ве? Например, у меня есть список артикулов и у каждого артикула от 1 до 5-6 фото. Названия фото надо переименовать по артикулу. А так как список из несколько тысяч артикулов, то в ручную подгонять одно на другое думаю не реально. Помогите пожалуйста!
Заранее благодарю за любую помощь!
ПС. для наглядного примера прикрепил тестовый документ, то как выглядит мой список.

Hugo,
Извините пожалуйста, а можете для особо тупых и далеких на более человечном языке объяснить, что куда и как?)))
В любом случае спасибо за помощь!)

в смысле редактировать в списке где-то так 10-12 тыс повторяющихся по несколько раз артикулов, добавив к каждому соответствующие _1, _2, _3...???

Заменил файл, наверное сперва не те имена были...

В общем, неделю назад искал как переименовывать файлы по списку и наткнулся на эту тему. Обрадовался, начал использовать, но на практике постоянно сталкивался с какими-то мелкими проблемами. В итоге пришел вот к такому варианту кода:

Option Explicit
Sub Rename()
On Error Resume Next
Dim OldName As String, NewName As String, sPath As String
Dim i As Long, lLastRow As Long
  sPath = "C:\1\"
  lLastRow = Cells(Rows.Count, "a").End(xlUp).Row
  For i = 2 To lLastRow
     OldName = sPath & Cells(i, "a")
     NewName = sPath & Cells(i, "b")
     Name OldName As NewName
  Next i
  If Err > 0 Then Exit Sub
  On Error GoTo 0
End Sub

Сразу скажу, что я там даже близко не программист, только примерно понимаю, как код работает, опирался на интуицию и просто шел путем перебора вариантов.
Какие тут изменения относительно верхнего кода и почему:
1. Убрал кнопку - мне не нужна, и два одинаковых кода смущают.
2. Переименовал sub - почему-то иногда проблемы с кодировкой при ctrl-v
3. Заменил 1 и 2 на "a", "b" здесь: " sPath & Cells(i, 1) sPath & Cells(i, 2)". Наверное, не обязательно, но мне проще соотносить с колонкой было
4. "lLastRow = Cells(Rows.Count, "a")". Показалось, что с 2 у меня не работало. Заменил на 1, потом на "a", соответственно.
5. Сразу сделал отсчет со второй строки. Как правило, всегда есть подзаголовки.
6. И, самое главное, постоянно вылезали ошибки 53 и 58. Когда работаешь с большим объемом данных, неудобно спотыкаться на каждой строке. Проще потом проверить, что не так. Минус еще в том, что он последовательно обрабатывает строчки и непонятно на какой именно происходит ошибка, а уже переименованные строки он считает ошибочными при повторном запуске. Поэтому погуглил как игнорировать ошибки.

Я понимаю, что как сами изменения, так и мои комментарии для специалиста могут выглядеть также как шаманские рецепты выглядят для врача, но эта система работает, и может кому-то помочь.

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

Есть надстройка, упрощающая всю сложность в этом деле до пару кликов мышкой. Да простить меня разраб!)
[spoiler]https://cloud.mail.ru/public/3kuT/4GbhtGqq4[/SPOILER]
инструкции на ютубе.
[spoiler]https://www.youtube.com/watch?v=NGNBTnpLEO0&feature=youtu.be
https://www.youtube.com/watch?v=rBWp7yAP1iI&feature=youtu.be[/SPOILER]

Так должно отметить ячейки с ошибками