VBA Macro To Open And Modify Files By Looping Through Files In Folder

[Excel Fox]

Try this

Sub OpenAndModifySameFileTypes()     
    Application.ScreenUpdating = False
    Dim strFile As String
    Dim strFileType As String
    Dim strPath As String
    Dim lngLoop As Long
    


    strPath = "C:\PINNACLE Journal TEMPLATES"
    strFileType = "*.csv" 'Split with semi-colon if you want to specify the file types. Example ->> "*.xls;*.jpeg;*.doc;*.gif"
     
     For lngLoop = LBound(Split(strFileType, ";")) To UBound(Split(strFileType, ";"))
        strFile = Dir(strPath & "\" & Split(strFileType, ";")(lngLoop))
        Do While strFile <> ""
            With Workbooks.Open(strPath & "\" & strFile)
                With .Sheets(1)
                    .Range("B2:D" & .UsedRange.Rows.Count).NumberFormat = "0.00"
                    .UsedRange.Sort Key1:=.Columns("A"), Order1:=1, Header:=1   
                End With
                .Close 1
            End With
            strFile = Dir
        Loop
    Next lngLoop
    strFile = vbNullString
    strFileType = vbNullString
    strPath = vbNullString
    lngLoop = Empty
     
End Sub