VBA save File with Cell Value in specific Folder

[Luke16398]

Hello,

My Idea is, that wenn i run the code, a Sheet is saved in a folder like the cell Value (B5). And if the Folder doesn't exist it will be created with the Cell Value (B5)

My code so far:

Dim Path As String
Dim filename As String
Dim wb As Workbook

Set wb = Workbooks.Add
ThisWorkbook.Sheets("Sheet2").Copy Before:=wb.Sheets(1)
Path = "C:\Users\Desktop\test\"
filename = Worksheets("Sheet2").Range("B5").Value & "_" & Worksheets("Sheet2").Range("E5").Value & ".xls"
wb.SaveAs filename:=Path & filename & ".xls"

so i can save the File with the Values of Cell (B5) and (E5) in the Folder "test"
But i want it to save the File, if for example the Cell Value (B5) is "ABCD", in the Path: C:\Users\Desktop\test\ABCD\
and if the Cell Value is "EFGH" in the Path C:\Users\Desktop\test\EFGH\ an so on.

Can someone please help me?

 

[Micron]

Not following.
You want the file to be saved in both ABCD and EFGH folders? Then do separate saves.
Or whichever of B5 and E5 is not blank? Then test for either cell having no value.
You're also saying the folder might not exist? Then Dir function will return "" if you test the path and it does not exist.

Users can choose a folder for file storage using msoFileDialogFolderPicker. You might want to check that out.

 

[Luke16398]

I want to save the sheet in the folder wich has the value of B5
If the cell hast the value ABCD the file should be saved in the folder ABCD if the Cell has another value the file should be saved in the folder whichever is the same name of that cell
So whenever i change the cell value the Code should search for that value and save the file in the folder witch has the same name of that cell

 

[Micron]

I get that. Maybe read my questions again which were due to

so i can save the File with the Values of Cell (B5) and (E5) in the Folder "test"