Renaming files using column reference

[sanilmathews]

I would like to have a VBA code that would rename files (both excel and pdf) in a specific path. The files in the path are initially named as 1, 2, 3, 4... etc. Now the template that has the VBA will have the exact number of files with the number series in Column A. While in Column B, I will have the new file names that should be used for renaming those files in the path.


The VBA should refer the files in the path using the series in Column A and rename it to a new name that is in Column B.

Thanks in advance!

 

[frank_AL]

sanilmatthews,

I found this code at: https://www.pcreview.co.uk/threads/rename-files-with-vba.3937575/
that seems to fit your need. Give it a try.

[COLOR=#141414][FONT=&quot]Sub RenameFiles()[/FONT][/COLOR]
[COLOR=#141414][FONT=&quot]For R = 1 To Range("A1").End(xlDown).Row[/FONT][/COLOR]
[COLOR=#141414][FONT=&quot]OldFileName = Cells(R, 1).Value[/FONT][/COLOR]
[COLOR=#141414][FONT=&quot]NewFileName = Cells(R, 2).Value[/FONT][/COLOR]
[COLOR=#141414][FONT=&quot]On Error Resume Next[/FONT][/COLOR]
[COLOR=#141414][FONT=&quot]If Not Dir(OldFileName) = "" Then Name OldFileName As NewFileName[/FONT][/COLOR]
[COLOR=#141414][FONT=&quot]On Error GoTo 0[/FONT][/COLOR]
[COLOR=#141414][FONT=&quot]Next[/FONT][/COLOR]
[COLOR=#141414][FONT=&quot]End Sub[/FONT][/COLOR]