Save with a new filename, replace existing string

Hi,

I have a document saved with the name "Q114 XXXXXX".
I want to have a macro that replaces Q114 with Q214.

Is that easy to make?

Thanks!

Lets assume that you have the Old file name in Column A and the New name in Column B. Make sure you have the complete name of the file you want to rename and to what you want.
For example, I tried this on
Column A
C:\Users\Desktop\test.xlsm

Column B
C:\Users\Desktop\testrename.xlsm

Hence you can list all the files you want to change and the macro will loop and change everything.
The code below should rename the file to what you want.

Select Code copy to clipboard

Sub vnzerem()
    Dim oldfilename, newfilename, r
    r = 0
    Do
        r = r + 1
        oldfilename = Cells(r, 1)
        newfilename = Cells(r, 2)
        If oldfilename = "" Or newfilename = "" Then Exit Do
        Name oldfilename As newfilename
    Loop
End Sub

Don’t forget to click the star if this helped you, and don’t forget to mark the thread as solved

Try this...

Sub tester()

Dim old_name As String, new_name As String

old_name = ActiveWorkbook.Name
new_name = Replace(old_name, "Q114", "Q214")

ActiveWorkbook.SaveAs Filename:=new_name

End Sub

@Xx7....I guess you are assuming that the "document" to be renamed is only an excel document by using ActiveWorkbook.Name. If you have .pdf and other extensions, it will have a limitation. That is why I prefer to loop through the documents

Xx7 - the formula didn't work.

The files are still named Q114

Hello,

Thank you for the replies,

The names of the documents differ, but they all have Q114 in them. I guess Xx7's sollution is the best?

Xx7 method will change only one file name (excel file). But if you have multiple names and multiple documents (.doc, .pdf etc) you can list them as I specified in Column A and B, and loop through the documents.

Don’t forget to click the star if this helped you, and don’t forget to mark the thread as solved