Rename a file with different versions each time saved

[gtd526]

Hello,
I have a workbook that I want to save as (in the same folder) version1, then version2, then version3, etc. depending on how many times I save it. I want to keep the original file as is.
I want the version to increase by 1 each time its saved. So in the same folder I might see FileName (version1), FileName (version2), etc. The extension will be .xlsm

Thank you

 

[gtd526]

Place the fncGetNextVersionNumber function in the same Workbook Code Module as the subAdHocSaveCopyAs procedure and let me know.

This is how I developed it and it works fine for me.

After investigating, I activated the Micro Scripting Runtime in the 2nd file, and it worked.
I didn't realize the References related to each workbook.
Problem Solved.

 

[HighAndWilder]

I've add both GetNext function and AdHoc procedure to the Workbook Code Module in both testing files.
The first (NBA) works fine. But in the second, I receive an error: Compile error, and this line is highlighted-Dim objFSO As FileSystemObject, user defined type not defined

Set a reference to Microsoft Scripting Runtime by using
' Tools > References in the Visual Basic Editor (Alt+F11).