Set the save path based on a cell value

[Yeoman.jeremy]

Hi there,

Is there a way to set the save path as a cell value?

At the moment i set the path using

ChDir "C:\Users\owner\Desktop\Development"

in the vb coding, but it gets tedious, as i have to change this for 4 different modules in at least 3 computers in each store, in approximately 18 stores everytime i make an update to my workbook.

I want the directory to be written into a cell, which this coding points to so i don't have to search throuhg my modules to find the specific piece of code, instead i can just change the directory each computer


help[ much apppreciated,

 

[Sektor]

Sub Sub1()

    Dim strFilePath As String
    
    strFilePath = Environ$("UserProfile") & "\Desktop\" & Worksheets("Sheet1").Range("A1")

End Sub