Renaming Workbooks based on Cell Value with VBA


Board Regular
The code below works with renaming workbooks, however it also moves them as well.

Is there a way to modify the code to make a copy of the workbook instead of moving it?

Thanks much in advance!

Sub RenameTesting()

Dim OldName1, NewName1

'Work books based on cell values below
OldName1 = [F10]: NewName1 = [C10]

'Renames workbooks and moves workbooks
Name OldName1 As NewName1

End Sub


MrExcel MVP, Moderator
How about
   Dim Fso As Object
   Set Fso = CreateObject("scripting.filesystemobject")
   Fso.CopyFile OldName1, NewName1
Last edited:


Board Regular
Thanks for the prompt response Fluff, you sir are a gentleman and a scholar!
Last edited:


MrExcel MVP, Moderator
What error number & message did you get?

Some videos you may like

This Week's Hot Topics

  • Get External Data (long shot question!)
    This is likely a long shot but I am wondering if it is at all possible for Excel to somehow 'change' the contents of a URL that is being linked to...
  • Importing multiple excel files into one spreadsheet
    Hi, I'm trying to import multiple excel files (with the same format into a single spreadsheet) so that each day's file is listed underneath the...
  • Cell Formatting
    Good Morning, I need to format a few different cells in the following manners: A1 has to always add a colon (:) after whatever is typed in by a...
  • How to copy multiple rows using If
    Hi all, I'm very new to VBA and have written this simple code to copy certain cells if a certain cell within that row contains any data. I need...
  • Workbook_Change stopped working !
    I am working on an app to speed up & automate processing of Credit Cards statements. After data is input from a CSV file, it is presented to the...
  • VBA If statement
    Dear All, I have two dates, where I'd like a message box to pop, if the dates are between this criteria. [CODE] sDate1 = #10/1/2019#...