Excel VBA - Multiple Dir() in Same Folder

Question

I am working on this codes, but can\'t make it work.

Here is my working code:

Sub AREA21()


Dim wb As Workbook
Dim myPath As String
Dim myFile As String
D