VBA - Open files from folder

[Yulyo]

Hello all,

I am searching for a vba code to open all xls files in a folder if the name of these files contains a specific text. It would be great to ask me when name i am searching, when run the vba.

I made one that opens all files, but...

Sub OpenFiles()
<code spellcheck="false" class="listtype-code listindent1 list-code1">Dim MyFolder As String</code>
<code spellcheck="false" class="listtype-code listindent1 list-code1">Dim MyFile As String</code>
<code spellcheck="false" class="listtype-code listindent1 list-code1">
</code>
<code spellcheck="false" class="listtype-code listindent1 list-code1">MyFolder = "C:\Users\xxx\Desktop\New folder\"</code>
<code spellcheck="false" class="listtype-code listindent1 list-code1">MyFile = Dir(MyFolder & "\*.xls")</code>
<code spellcheck="false" class="listtype-code listindent1 list-code1">
</code>
<code spellcheck="false" class="listtype-code listindent1 list-code1">Do Until MyFile = ""</code>
<code spellcheck="false" class="listtype-code listindent1 list-code1">    Workbooks.Open Filename:=MyFolder & "" & MyFile</code>
<code spellcheck="false" class="listtype-code listindent1 list-code1">    MyFile = Dir</code>
<code spellcheck="false" class="listtype-code listindent1 list-code1">Loop</code>
End Sub

 

[Norie]

Perhaps something like this.

Sub OpenFiles()
Dim MyFolder As String
Dim MyFile As String
Dim MyName As String

    MyFolder = "C:\Users\xxx\Desktop\New folder\"
    MyName = InputBox("Please enter name to search for:")
    MyFile = Dir(MyFolder & "\*" & MyName & "*.xls")
    
    
    Do Until MyFile = ""
        Workbooks.Open Filename:=MyFolder & "" & MyFile
        MyFile = Dir
    Loop
    
End Sub

 

[Yulyo]

Thank you for your answer Norie. It's working beautifully.
Is there any chance you could help me copy cell A5 and B5 from every workbook it opens, paste it on this workbook and then close all files that vba just opened?

Thank you in advance