Private Sub Command2_Click()
Dim sFileName As String, sNewFileName As String

sFileName = "C:\goooooo\fffff.xls" 'имя исходного файла
sNewFileName = "C:\goooooo\dddd.xls" 'имя файла для переименования
If Dir(sFileName, 16) = "" Then MsgBox "Нет такого файла", vbCritical, "Ошибка": Exit Sub

Name sFileName As sNewFileName 'переименовываем файл

MsgBox "Файл переименован", vbInformation, "www.excel-vba.ru"
End Sub
нужна чтобы места dddd было текущая дата

http://www.sql.ru/forum/1101267/pomogite-pereimenovat-fayl