Rename Multiple workbook without opening that.

[Rahulwork]

Hello Everyone

I have some workbook in folder and i want to change their name without opening them.

By some function i have picks their old name and added their new name in excel cell. example

AA1 - \\ABC\Working File\2020-07-17.xlsx
AB 1 - \\ABC\Working File\New_2020-07-17.xlsx

and so one till the blank row

can you please help me do the same.

 

[DanteAmor]

Try this

Sub test()
  Dim i As Long
  On Error Resume Next
  For i = 1 To Range("AA" & Rows.Count).End(3).Row
    If Dir(Range("AA" & i).Value) <> "" Then
      Name Range("AA" & i).Value As Range("AB" & i).Value
    End If
  Next
End Sub

 

[Rahulwork]

thanks it works but it worked only once. now it's not working

 

[DanteAmor]

The "old" names no longer exist, if you run the code again, the "old" names now have new names; and therefore cannot find them.

 

[Rahulwork]

Got it

 

[DanteAmor]

Glad we could help & thanks for the feedback

 

[Rahulwork]

Hello. I posted some questions pls pls help me