Hi Jil,
it's been ages since your opening post and chances are you have found the answer to your problem. Would be nice if you shared it with us.
Still, in case there has been no solution, I'd like to say that I tried it with a 180-char file name and it all worked out smoothly.
Code:
Sub RenameFile()
Dim file1 As String, file2 As String, path1 As String
file1 = "123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890.zip"
file2 = "123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567899.zip"
path1 = "C:\FolderA\FolderB"
Name path1 & "\" & file1 As path1 & "\" & file2
End Sub
My guess is that it had something to do with the path and not the filename. But still, you never mentioned what kind of message you got, so...
Regards, tstav