Runtime error 424 Object required

[Joe9238]

Hi all,
I have this line of code that gathers data from specified files with certain names in a list. I think I have everything I need but it comes up with

Runtime error 424 Object required

and highlights

for each objfile in objfiles

The full thing is here

Sub Test()
Dim sFolder As String


    Application.ScreenUpdating = True
    
    With Application.FileDialog(msoFileDialogFolderPicker)
        .InitialFileName = Application.DefaultFilePath & "\"
        .Title = "Please select a folder..."
        .Show
        If .SelectedItems.Count > 0 Then
            sFolder = .SelectedItems(1) & "\"
        Else
            Exit Sub
        End If
    End With
    
    Call Consolidate(sFolder, ThisWorkbook)
End Sub
Private Sub Consolidate(sFolder As String, wbMaster As Workbook)
    Dim wbTarget As Workbook
    Dim objFso As Object
    Dim ary(3) As Variant
    Dim lRow As Long
    Dim objFiles As Object
    Dim objFile As Object
    
Dim CodeNames As Variant, i As Long
CodeNames = Range("A1:A" & Cells(Rows.Count, "A").End(xlUp).Row)
For Each objFile In objFiles
For i = 1 To UBound(CodeNames, 1)
If objFile.Name Like "*" & CodeNames(i, 1) & "*" Then
'get data from the file
Exit For
End If
Next i
Next objFile


End Sub

Any help is appreciated
Thanks in advance

 

[Domenic]

You'll need to first create an instance of the FileSystemObject using the CreateObject method. So you should have something like this...

[FONT=Calibri][COLOR=darkblue]Set[/COLOR] objFso = CreateObject("Scripting.FileSystemObject")
[COLOR=darkblue]Set[/COLOR] objFiles = objFso.GetFolder(sFolder).Files

[COLOR=darkblue]For[/COLOR] [COLOR=darkblue]Each[/COLOR] objFile [COLOR=darkblue]In[/COLOR] objFiles
    [COLOR=green]'etc[/COLOR]
    '
    '
[COLOR=darkblue]Next[/COLOR] objFile[/FONT]

 

[Joe9238]

That's great! It has stopped the error. Would you happen to know how to get the data from the files listed? I'm still stuck on that part. Thanks for the help so far.