Amend code to save to a sub-folder

[Mel Smith]

I'm trying to use VBA to save files to sub-folders. The line of code that I'm using is:

Path = "C:\Users\melsm\Desktop\Averages\CC"

however, the files are saved in the Averages folder and not the sub-folder I want. Is there something wrong with my code?

The next two lines of code are:

filename = Range("B1")
ActiveSheet.SaveAs filename:=Path & filename & " " & Format(Date, "dd-mmm") & ".xlsx", _
FileFormat:=xlOpenXMLWorkbook

Thank you.

Mel

 

[Legacy 143009]

Could you please try:

ActiveSheet.SaveAs filename:=Path & "\" & filename & " " & Format(Date, "dd-mmm") & ".xlsx", _
FileFormat:=xlOpenXMLWorkbook

Or you may add a back-slash at the end of your path..

 

[Mel Smith]

It was the back slash that I'd missed. Adding it did the trick.

Many thanks, Flashbond.

Mel

 

[Legacy 143009]

Glad it did work