looping macro for all files in a specified folder

Good Morning All,
Still a little new to the excel vba programming but was hoping that someone could assist me in a macro I wish to create. I have a folder containing n number of data files all of the same format and wish to create a macro that will loop through all of the files in the folder and apply the macro listed below.
I have set up the macro below to run through one data file that has been selected by the user and now wish to apply it to all files in said folder. I know there is a loop option but can anyone explain to me how to do this?
Thanks so much,

Mel

Sub Import_PCH_File()
'
' Import_PCH_File Macro
' Importing PCH File to run Stiffness_Macro
'

Dim Input_File As Variant
Dim Input_File_Name As String

Input_File = Application.GetOpenFilename(Title:="Choose your file", _
FileFilter:="All Files (*.*), *.*")
Input_File_Name = CStr(Input_File)
If Right(Input_File_Name, 1) <> "\" Then Input_File_Name = Input_File_Name & "\"

    With ActiveSheet.QueryTables.Add(Connection:= _
        "TEXT;" & Input_File, _
        Destination:=Range("$A$1"))
        .TextFilePlatform = 437
        .TextFileStartRow = 1
        .TextFileParseType = xlFixedWidth
        .TextFileTextQualifier = xlTextQualifierDoubleQuote
        .TextFileConsecutiveDelimiter = False
        .TextFileTabDelimiter = True
        .TextFileSemicolonDelimiter = False
        .TextFileCommaDelimiter = False
        .TextFileSpaceDelimiter = False
        .TextFileColumnDataTypes = Array(1, 1, 1, 1, 1, 1)
        .TextFileFixedColumnWidths = Array(16, 2, 20, 16, 20)
        .TextFileTrailingMinusNumbers = True
        .Refresh BackgroundQuery:=False
    End With
    Sheets("Limits").Select
    Calculate
    Sheets("Extracted_Data").Select
    Calculate
    Sheets("Stiffness_Calculator").Select
    Calculate
    Sheets("Stiffness_Plots").Select
    Calculate
    Sheets("LL_Results").Select
    Calculate
    Sheets("UL_Results").Select
    Calculate
    ActiveWorkbook.SaveAs Filename:=Left(Input_File_Name, InStrRev(Input_File_Name, ".")) & "xlsm", FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
End Sub

Function Import_PCH_File(Input_File As String)
Input_File_Name = CStr(Input_File)
If Right(Input_File_Name, 1) <> "\" Then Input_File_Name = Input_File_Name & "\"
With ActiveSheet.QueryTables.Add(Connection:= _
    "TEXT;" & Input_File, _
    Destination:=Range("$A$1"))
    .TextFilePlatform = 437
    .TextFileStartRow = 1
    .TextFileParseType = xlFixedWidth
    .TextFileTextQualifier = xlTextQualifierDoubleQuote
    .TextFileConsecutiveDelimiter = False
    .TextFileTabDelimiter = True
    .TextFileSemicolonDelimiter = False
    .TextFileCommaDelimiter = False
    .TextFileSpaceDelimiter = False
    .TextFileColumnDataTypes = Array(1, 1, 1, 1, 1, 1)
    .TextFileFixedColumnWidths = Array(16, 2, 20, 16, 20)
    .TextFileTrailingMinusNumbers = True
    .Refresh BackgroundQuery:=False
End With
Application.CalculateFull
ActiveWorkbook.SaveAs Filename:=Left(Input_File_Name, InStrRev(Input_File_Name, ".")) & "xlsm", FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
End Function
Sub Import_Many_Files()
Dim Input_File, Input_File_Name
Input_File = Dir("C:\ExamplePath\*.xls")
Do Until Dir = ""
    Call Import_PCH_File(Input_File)
    Input_File = Dir
Loop
End Sub

Thank you so much for your quick reply. I am getting a byRef argument type mismatch for the Input_File in the Call Import_PCH_File
How can I address this?

Thank you!!!!!!!

Hi,
file handling is done by the FileSytemObject class. This is contained in the reference "Microsoft Scripting Runtime" that you'll want to your project (Tools - References). Once you have that you can easily loop through the files:

Option Explicit
Sub LoopFiles()
    Dim fs As New FileSystemObject
    Dim FolderName As String
    Dim theFile As File
    Dim fldr As FileDialog
    
    Set fldr = Application.FileDialog(msoFileDialogFolderPicker)
    With fldr
        .Title = "Select a Folder"
        .AllowMultiSelect = False
        If .Show = -1 Then
            FolderName = .SelectedItems(1)
        Else
            Exit Sub
        End If
    End With
    For Each theFile In fs.GetFolder(FolderName).Files
        'do your stuff
    Next theFile
End Sub

Thank you for your quick response. I will look more into this file system

You can't combine my solution with Carl's.

Using Filesystemobject to loop through the files will return each file as an object (file object to be precise). The function I gave you requried the file as a string. I gave you the macro at the bottom that uses VBA's dir() function which loops through files in a folder but returns the files as a string. This is the one you need to use, or you need to change use the .path/.name properties of the file to get the filename as string. That will address your byref mismatch issue.

In essence the two methods for doing this are:

dim fil as string
fil = dir("C:\example path\*.xls") 'returns file as a string
do until dir="" 'loops until all files in folder have been done
   'code to run on fil
   fil = dir 'finds next file
loop

or

dim fso as object, fil as object, fol as object
set fso = createobject("scripting.filesystemobject")
set fol = fso.getfolder("C:\example folder\")
for each fil in fol.files
  'code to run on fil, might need to test for file extension type...
next

Note: the second method is similar to what Carl did but with late binding so it does not need the reference to the filesystemobject.