Save as vba

Hi,

I have a vba that copies one of the sheets of my workbook and makes a new workbook with that and then saves it with a specific name on a specific address.

Since my users insist on renaming the folder where the macro saves or deleting the folder, I would like for the macro to save in the same address where the original file is.

bello the code:

Sheets("DATA").Select
Sheets("DATA").Copy
ChDir "C:\PIPELINE"
ActiveWorkbook.SaveAs Filename:="C:\PIPELINE\PIPELINE-DATA.xlsx", FileFormat _
:=xlOpenXMLWorkbook, CreateBackup:=False
Windows("FORMULARIO PIPELINE CONSOLIDADO.xlsm").Activate
Sheets("MENU").Select
Windows("PIPELINE-DATA.xlsx").Activate
ActiveWindow.Close
ActiveWorkbook.Save
ActiveWorkbook.Close

thanks for any help you can provide

regards

CV

Thank you solus