multiple excel files into one VBA - problems whit inputbox

[VBAbeginner98]

Hello every body,

i hope that some of you guys are able to help me out.

i have to get multiple excelfile into one file, but i want to make an inputbox, so that the user are able to choose between different folders. The code looks like this so far:

Sub Samling()


Dim FolderPath As String
Dim Filename As String
Dim Sheet As Worksheet
Dim myval As Variant
Application.ScreenUpdating = False


myval = inputbox("write the name of folder")




FolderPath = "C:\Users\IL2M\Desktop\Distrikter\01082019"
'FolderPath = "C:\Users\IL2M\Desktop\Distrikter" & myval & " \ "
Filename = Dir(FolderPath & "*.xlsx*")
Do While Filename <> ""
Workbooks.Open Filename:=FolderPath & Filename, ReadOnly:=True
For Each Sheet In ActiveWorkbook.Sheets
Sheet.Copy After:=ThisWorkbook.Sheets(1)
Next Sheet
Workbooks(Filename).Close
Filename = Dir()
Loop
Application.ScreenUpdating = True


End Sub

i have Highlighted the code that gives me problems. this code works just fine without the "inputbox" thing.

thank you

 

[Fluff]

Hi & welcome to MrExcel.
How about

FolderPath = "C:\Users\IL2M\Desktop\Distrikter\" & myval & "\"

 

[VBAbeginner98]

Thank you for the help, Fluff!

it worked just fine

 

[Fluff]

You're welcome & thanks for the feedback