this is my code and it keeps getting sub or function not defined error, im pretty sure its a simple fix but i just can't find the solution, big thanks to anyone who offers any help.
Sub RDB_Filter_Data()
Dim myFiles As Variant
Dim myCountOfFiles As Long
myCountOfFiles = Get_File_Names( _
MyPath:="C:\Users\Desktop\Tryout\", _
Subfolders:=True, _
ExtStr:="*.txt*", _
myReturnedFiles:=myFiles)
If myCountOfFiles = 0 Then
MsgBox "No files that match the ExtStr in this folder"
Exit Sub
End If
Get_Filter _
FileNameInA:=False, _
SourceShName:="", _
SourceShIndex:=1, _
FilterRng:="A1:D3500"& Rows.Count, _
FilterField:=1, _
FilterValue:="Ended", _
myReturnedFiles:=myFiles
End Sub