Open Multiple Files from Variable folders using VBA

[subhalahha]

I want to open 4 different excel files saved under same folder using macro, but the folder path is not fixed.
Let's say, I have 4 excel files named A.xlsx, B.xlsx, C.xlsx & D.xlsx under folder named 22-Feb-15 (This folder name will change everyday, but the file names will remain same). I want vba code so that I can select the folder manually and once it is selected, all these 4 files will open one by one (there are other files too, but I need to open only these 4 files).
Thanks a lot for all your assistance.

 

[Domenic]

Try...

<font face=Calibri><SPAN style="color:#00007F">Option</SPAN> <SPAN style="color:#00007F">Explicit</SPAN><br><br><SPAN style="color:#00007F">Sub</SPAN> SelectFolderFromWhichToOpenSpecifiedFiles()<br><br>    <SPAN style="color:#00007F">Dim</SPAN> sFolder <SPAN style="color:#00007F">As</SPAN> <SPAN style="color:#00007F">String</SPAN><br>    <SPAN style="color:#00007F">Dim</SPAN> sFile <SPAN style="color:#00007F">As</SPAN> <SPAN style="color:#00007F">String</SPAN><br>    <SPAN style="color:#00007F">Dim</SPAN> sFile1 <SPAN style="color:#00007F">As</SPAN> <SPAN style="color:#00007F">String</SPAN><br>    <SPAN style="color:#00007F">Dim</SPAN> sFile2 <SPAN style="color:#00007F">As</SPAN> <SPAN style="color:#00007F">String</SPAN><br>    <SPAN style="color:#00007F">Dim</SPAN> sFile3 <SPAN style="color:#00007F">As</SPAN> <SPAN style="color:#00007F">String</SPAN><br>    <SPAN style="color:#00007F">Dim</SPAN> sFile4 <SPAN style="color:#00007F">As</SPAN> <SPAN style="color:#00007F">String</SPAN><br>    <SPAN style="color:#00007F">Dim</SPAN> Cnt <SPAN style="color:#00007F">As</SPAN> <SPAN style="color:#00007F">String</SPAN><br>    <br>    <SPAN style="color:#00007F">With</SPAN> Application.FileDialog(msoFileDialogFolderPicker)<br>        .InitialFileName = Application.DefaultFilePath & "\"<br>        .Title = "Select a folder"<br>        .Show<br>        <SPAN style="color:#00007F">If</SPAN> .SelectedItems.Count > 0 <SPAN style="color:#00007F">Then</SPAN><br>            sFolder = .SelectedItems(1) & "\"<br>        <SPAN style="color:#00007F">Else</SPAN><br>            <SPAN style="color:#00007F">Exit</SPAN> <SPAN style="color:#00007F">Sub</SPAN><br>        <SPAN style="color:#00007F">End</SPAN> <SPAN style="color:#00007F">If</SPAN><br>    <SPAN style="color:#00007F">End</SPAN> <SPAN style="color:#00007F">With</SPAN><br>    <br>    Application.ScreenUpdating = <SPAN style="color:#00007F">False</SPAN><br>    <br>    sFile1 = "A.xlsx"<br>    sFile2 = "B.xlsx"<br>    sFile3 = "C.xlsx"<br>    sFile4 = "D.xlsx"<br>    <br>    sFile = Dir(sFolder & "*.xlsx", vbNormal)<br>    <br>    Cnt = 0<br>    <SPAN style="color:#00007F">Do</SPAN> <SPAN style="color:#00007F">While</SPAN> Len(sFile) > 0<br>        <SPAN style="color:#00007F">Select</SPAN> <SPAN style="color:#00007F">Case</SPAN> UCase(sFile)<br>            Case UCase(sFile1), UCase(sFile2), UCase(sFile3), UCase(sFile4)<br>                Cnt = Cnt + 1<br>                Workbooks.Open Filename:=sFolder & sFile<br>        <SPAN style="color:#00007F">End</SPAN> <SPAN style="color:#00007F">Select</SPAN><br>        sFile = Dir<br>    <SPAN style="color:#00007F">Loop</SPAN><br>    <br>    Application.ScreenUpdating = <SPAN style="color:#00007F">True</SPAN><br>    <br>    MsgBox "Workbooks opened:  " & Cnt<br>    <br><SPAN style="color:#00007F">End</SPAN> <SPAN style="color:#00007F">Sub</SPAN></FONT>

Hope this helps!