VBA save as Path

[raccoon588]

Is there a way to have the path = a cell in the workbook

something like =range("setup-lamp types!I1")

the above doesn't work, so is there another way?

Sub Save1()
Dim nom As String
Dim path As String
 path = "\\hinas1\mfg\S8WData\Christine Myhaver"
 nom = ThisWorkbook.Name

 

[Fluff]

How about

Dim Pth As String
Pth = Sheets("setup-lamp types").Range("I1").Value

 

[gallen]

Yes of course. Just make sure the path is valid in your example the path is missing a backslash

Sub WbSaveAs()
Dim nom As String
Dim path As String
 path = [COLOR=#333333]Sheets("setup-lamp types").Range("I1").Value [/COLOR]
 nom = ThisWorkbook.Name
 
 ThisWorkbook.SaveAs path & nom
End Sub