Merge different Excel/CSV files into one with variable in path name

Helllo,
I have a macro for mergeing multiple excel files into one excel file with multiple tabs. But the path (highlighted in blue) from where the macro is picking up the files in fixed. Is there any way that macro will prompt to select the path/folder instead of fixed path in micro?

I found a thread on similar subject but the path in given macro was again fixed.

My micro is as below.

Sub Multiple_Sheets_to_One()
Path = "D:\Excel Training\Excel Combiner"
Filename = Dir(Path & "*.csv")
Do While Filename <> ""
Workbooks.Open Filename:=Path & Filename, ReadOnly:=True
For Each Sheet In ActiveWorkbook.Sheets
Sheet.Copy After:=ThisWorkbook.Sheets(1)
Next Sheet
Workbooks(Filename).Close
Filename = Dir()
Loop
End Sub
"


Appreciate your help !!!

Thanks,
Nik.