VBA to save in a folder specified in a cell as well as saving document as a name specified in cell

[tcorcoran15]

Hi All,

Appreciate any help with this.

I want to save a file using VBA into a specified folder on the server.

Most of the save location will not change so I would like to have the first part up until the final folder hard coded into the vba.

However, I would like the final folder name to be specified in Cell B18, then I would like the save name of the file to be cells B20, B16 and B18 combined with spaces in between.

For Example

"X:\Tom\Documents" to be hardcoded and then the following folder & save name from that be specified in cells.

Is this possible?

Please let me know if you require more information.

 

[JPARKHURST]

dim stree as string
dim sname as string
dim sfolder as string

stree = "X\Tom\Documents"
sname = Cells("a1").Value
sfolder = Cells("B18").Value

stree = stree & sfolder & sname

=activeworkbook.saveas Filename:= sname

hth,

Jon