EXCEL, again...I need a command to save workbook in 2 places 1

[coolcarls]

Hi again,
I am trying to save my workbook in 2 places at the same time. Right now I do it manually, no big deal, but....
I have acommand button right now and it works to save it in a specific place, there are 2 plrobelms though. 1. it only saves it in one place 2. it won allow me to save it with the .xls behind it.
here's what I have, don't laugh!
ActiveWorkbook.SaveCopyAs "C:\Projects\Pyramid Docs\Bills of Lading (LA)\Numerical BOL LIST" & "\BOLLA04-" & Sheet2.Cells(3, 13)


Thanks for anything & everything!!!!
Carl

 

[SkipVought]

Hi,

Please post your macro code and the VALUES in the referenced cells.

Skip,

Want to get great answers to your Tek-Tips questions? Have a look at FAQ219-2884

 

[coolcarls]

Skip,
I don't understand what you mean, sorry!
I thought that I had posted the macro code in the original posting, is there something else?
The values of the referenced cells is variable. It's automatic incrementing number. I don't know if this helps. Don't forget that I know dangerously little about this stuff


Here's the macro code

ActiveWorkbook.SaveCopyAs "C:\Projects\Pyramid Docs\Bills of Lading (LA)\Numerical BOL LIST" & "\BOLLA04-" & Sheet2.Cells(3, 13)


Thanks

 

[SkipVought]

You only have ONE SaveAs statement. You want to save to TWO different files.

Where is the code to save to TWO different files?

Skip,

Want to get great answers to your Tek-Tips questions? Have a look at FAQ219-2884

 

[coolcarls]

Ahhh, now I understand! Well, that's the problem, I don't how to complete the code to save it in 2 places, not only that, the code I am using to save in the one place doesn't work that great either.
I guess that should have been my original question.

 

[SkipVought]

Sub SaveTheseFiles()
    With ActiveWorkbook
        .SaveCopyAs "C:\Projects\Pyramid Docs\Bills of Lading (LA)\Numerical BOL LIST" & "\BOLLA04-" & Sheet2.Cells(3, 13)
        .SaveCopyAs "C:\Projects\Pyramid Docs\Bills of Lading (LA)\Numerical BOL LIST" & "\BOLLA04-" & Sheet2.Cells(3, 14)
    End With
End Sub

assuming that the values in Sheet2.Cells(3, 13) & Sheet2.Cells(3, 14) concatenate to make valid file names like
[tt]
C:\Projects\Pyramid Docs\Bills of Lading (LA)\Numerical BOL LIST\BOLLA04-abc.xls
[/tt]


Skip,

Want to get great answers to your Tek-Tips questions? Have a look at FAQ219-2884

 

[coolcarls]

Skip, you NEVER fail! Thanks a million