Searching a folder to match each file to a table - vba

Question

I added a For loop (see k part) and it really slows down my entire program. Is it possible make this more efficient?
I am searching a specific folder and trying to match each file to a table in my spreadsheet. I am trying to make Quarters(1,j) in the For k loop same as Quarters(i,j) from the lower part of the code but not sure how to do that since I have already used integer i.
For j = 1 To 2
For k = 1 To 39
If k <= 29 Then
'Looks at all the files in the folder for the given Quarter
SourceFolderName = FolderPath & "\" & Quarters(1, j)
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFolder = objFSO.GetFolder(SourceFolderName)
End If
If k > 29 Then
SourceFolderName = FolderPath & "\" & Quarters(k, j)
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFolder = objFSO.GetFolder(SourceFolderName)
End If
For Each objFile In objFolder.Files
i = 1
NotAssigned = True
'Keep going until we match the file
While NotAssigned = True
'If the beginning of the file name matches for a given state,
'assign the file name to that state for this quarter
If Left(objFile.Name, 9) = StateAbbr(i, 1) & Quarters(i, j) & "FA" Then
WBName(i, j) = objFile.Name
'Stop trying to match the file
NotAssigned = False
End If
If i = 39 Then NotAssigned = False
i = i + 1
Wend
Next objFile
Set objFile = Nothing
Set objFolder = Nothing
Set objFSO = Nothing
Next k
Next j

Answer 1

I managed to change my entire code to use DIR instead of looping each cell in spreadsheet and looping each file in my folder. My run time cut down from 40 min to 2 second!!!!!!! I am so amazed by this now. Here is the solution if you are interested.
Dim StrFile As String
For j = 1 To 2
For i = 1 To 39
StrFile = Dir(FolderPath & "\" & Quarters(i, j) & "\*FA*")
Do While Len(StrFile) > 0
If Left(StrFile, 9) = StateAbbr(i, 1) & Quarters(i, j) & "FA" Then
WBName(i, j) = StrFile
End If
StrFile = Dir
Loop
Next i
Next j