Macro to open workbooks of multiple specific names...

Morning,


I currently have a piece of code that opens all of the files in a folder that are called "*agent*", opens them and copies information. Now, these files come with numbers at the beginning which, are always the same. I only want to open certain files that begin with, for example, 801, 802, 803, 804, 805 and 806. How would I write this into my code? As you can see from the below code, it now looks for the files that all have "agent" in the name, but this is opening files that have that name but are not the right ones.

Here is my current macro...

Please Login or Register  to view this content.

Many thanks in advance

Edit: I hope this isnt as simple as putting "MyFile = Dir(MyFolder & "\*801*", "\*802*")" etc, lol

if instr(1,myFile.Name,"803")<>0 or instr(1,myFile.Name,"804")<>0 then

YOUR CODE

end if