Save as, but leave original open

[Groves22]

Hey all...
I am trying to save a file with a different name, but keep the original open.

I guess the way it works now is:
File 1 save as File 2. The open file is now File 2, while File 1 is still on the drive.

Is there a way to get File 1 to save as File 2, with both File 1 and File 2 being open.

File 1 is an extremely large file, so it takes 5-10 minutes to open. That is why I want to know if I can keep it open, while saving it as something else.

Thanks

 

[ettienne]

No

 

[Groves22]

OK... I guess I will just have macro open new file and copy/paste in there....

Thanks!

 

[SkipVought]

hi,

    Dim oFSO, oFolder

    Set oFSO = CreateObject("Scripting.FileSystemObject")
    Set oFolder = oFSO.GetFolder(ThisWorkbook.Path)

    ThisWorkbook.Save

    oFSO.CopyFile ThisWorkbook.FullName, "FullPath\YourNewSaveAs.xls"

    Set oFolder = Nothing
    Set oFSO = Nothing

Skip,

_{Just traded in my old subtlety...
for a NUANCE!}

 

[TonyJollans]

You don't say what app you're using. Excel has a [blue][tt]SaveCopyAs[/tt][/blue] Function that does what you want; Word, unfortunately, does not.

Enjoy,
Tony

------------------------------------------------------------------------------------
We want to help you; help us to do it by reading this: Before you ask a question.

I'm working (slowly) on my own website