Renaming Workbooks based on Cell Value with VBA

[Jambi46n2]

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

 

[Jambi46n2]

Screen shot of what I'm going for...

https://ibb.co/F681DvQ

 

[Fluff]

How about

   Dim Fso As Object
   Set Fso = CreateObject("scripting.filesystemobject")
   Fso.CopyFile OldName1, NewName1

 

[Jambi46n2]

Thanks for the prompt response Fluff, you sir are a gentleman and a scholar!

 

[Fluff]

What error number & message did you get?

 

[Jambi46n2]

What error number & message did you get?

The error message was human error on my part.

Can't thank you enough again.

I sincerely appreciate it.

 

[Fluff]

You're welcome & thanks for the feedback