How d I save a workbook from a path and file name listed in cell from a second workbook?

[skidarmy]

Hi All,

I have a control (Dashboard) workbook/sheet that runs a filtering macro on one report and splits it out to the required fields based on the sort options I have put in. To open this I use

Sheets("DASH").Select
PathName = Range("K4").Value
filename = Range("L4").Value
ControlFile = ActiveWorkbook.name
Application.AskToUpdateLinks = False
Workbooks.Open filename:=PathName & filename

Which will open the data and then it does it's thing. I want to be able to save the file in the same way automatically from the information in cells (PathName) "K5" and filename "O5" as they are automatically set to the user and what part of the server they are connected to.

I can find examples of saving a file from a cell reference within the same active sheet but for this to work, i need the active sheet to save using the locations in the "dashboard" workbook.

So - Workbook1 starts the opening of the Data (Workbook2), this also run's the macro and will have the SaveAs path and name
Workbook 2 opens from the macro in WB1 and once it's completed I'd like it save based on the information in the 2 cells from WB1

Any help would be greatly appreciated.

 

[Lee J]

Hi Skidarmy,

This code creates a new workbook from a workbook and then saves to the location and filename in K5 and O5:

Sub Macro2()

SavePath = Range("K5").Value
SaveFileName = Range("O5").Value

    Workbooks.Add
ActiveCell.FormulaR1C1 = "Testing"
Range("A1").Select
ActiveCell.FormulaR1C1 = "Worked"
Range("A2").Select

ActiveWorkbook.SaveAs SavePath & SaveFileName & ".xlsx"


End Sub