Identify files and rename based on cell value

[sanket_sk]

Hi All,

I am stuck with a unique issue, I have a few files (PDF & Jpeg) in a folder, a list of these files is prepared in an excel sheet.

I want to change the name (Rename ) of specific files ( not all only a few files), could you please help me prepare a macro that will help to identify a specific file and rename it as per inputs given in the cell.

Original file name is available in column A, I want to rename it with column B.

Folder path	C:\Users\Data\
File name available in folder	File Name to be renamned
Aadhar	Sanket_Adahr Card
PAN	Pramod Pan Card
Passport	Teja_Passport
Aadhar01	Maharaja_Aadhar

Thanks & Regards,
Sanket

 

[offthelip]

I have this code that I used to move files which I have modified just to rename files. ( untested)

Sub movefile()
' this subrouitne move the files to the folder this workbook is in
Dim pathn As String
Dim src As String
Dim dst As String

'pathn = ActiveWorkbook.Path
Worksheets("tobemoved").Select
lastrow = Cells(Rows.Count, "A").End(xlUp).Row
inarr = Range(Cells(1, 1), Cells(lastrow, 2))
pathn = inarr(1, 2)
For i = 2 To lastrow
'You can change the  file name
    src = pathn & inarr(i, 1)
    dst = pathn & inarr(i, 2)
    Name src As dst
Next i
End Sub