Copy this File As (This workbook Path + Name + Phrase + (V)arriant #)

[drgkt]

Without changing the current open file name,
Save a copy of the file as specified in title.

The version number V should be attached to the end of the file.

If the name exists, the version number should be incremented by one.

Example:
Active workbook = C:\test\book.xls

Save copy as : C:\test\bookphrase1.xls
If C:\test\bookphrase1.xls exists, proceed to C:\test\bookphrase2.xls etc.

I am a NOVICE on vba, so please do not laugh, at least I tried:

Please Login or Register  to view this content.

[spitfireblue]

Hi,
No one is going to laugh, you did a pretty good job if you rate yourself as a novice!
A few things...

• ThisWorkbook.FullName - this will pickup the file extension as well i.e. Book.xls not just Book
• To combine strings you need to use & instead of +
• Your Exit Do is in the wrong place. You want to exit after you save the file.

Try this:

Please Login or Register  to view this content.

[drgkt]

Thank you Stephen for pointing out and explaining the errors.

It seemed to be executing, no errors, BUT there was no file in the dir...
Found it after disk search, it went in "MyDocuments"
Any idea why?

[drgkt]

MsgBox (saf) before Do only shows "book". Path is missing.

[drgkt]

ok. Found it.

Please Login or Register  to view this content.