Есть макрос по переименованию файла (база макроса от Pavel55). Немного доработал чтоб переименовывать много файлов, но чтото не так.  
____________________________________________________________­_________________  
Sub ПереименоватьГруппуФайлов()  
Dim OldName As String, NewName As String, OldName1 As String  
Dim i As Long  
 
For i = 1 To 131  
OldName1 = Cells(i, 1) 'старое имя в ячейке  
NewName = Cells(i, 2) 'новое имя  
OldName = "C:\Documents and Settings\Родители\Рабочий стол\Базы\Disks\Дизайны\K&K\kik\OldName1.GIF"  
If OldName1 = OldName Then  
OldName = "C:\Documents and Settings\Родители\Рабочий стол\Базы\Disks\Дизайны\K&K\kik\OldName1.GIF": NewName = "C:\Documents and Settings\Родители\Рабочий стол\Базы\Disks\Дизайны\K&K\kik\NewName.GIF"  
Name OldName As NewName  
End If  
Next i  
End Sub  
____________________________________________________________­__________________  
 
Подскажите кто может.  
Спасибо.  
 
*Почему эксель?    
Так удобней. Эксель собирает имана и переименовывает(внутри), удаляет и заменяет символы. А кирилица и новые нужны будут позже.