Sub modLoopThroughFiles()
    Dim wbk As Workbook
    Dim wks As Worksheet
    '
    RootFolder = MacScript("return (path to desktop folder) as String")
  
    If Val(Application.Version) < 15 Then
        scriptstr = "(choose folder with prompt ""Select the folder""" & _
            " default location alias """ & RootFolder & """) as string"
    Else
        scriptstr = "return posix path of (choose folder with prompt ""Select the folder""" & _
            " default location alias """ & RootFolder & """) as string"
    End If
  
    folderPath = MacScript(scriptstr)
    On Error GoTo 0
  
MyFolder = folderPath
MyFile = Dir(MyFolder)
 
    Do While MyFile <> ""
        Set wbk = Workbooks.Open(Filename:=MyFolder & MyFile, Password:="change")
        Set wks = wbk.Worksheets(1)
        With wks
            'Workbooks(MyFile).Activate
            .Rows("1:1").RowHeight = 20
            .Range("A1").Select
            .Range(Selection, Selection.End(xlToRight)).Select
            .Range(Selection, Selection.End(xlDown)).Select
            Selection.Borders(xlDiagonalDown).LineStyle = xlNone
            Selection.Borders(xlDiagonalUp).LineStyle = xlNone
            With Selection.Borders(xlEdgeLeft)
                .LineStyle = xlContinuous
                .ColorIndex = 0
                .TintAndShade = 0
                .Weight = xlThin
            End With
            With Selection.Borders(xlEdgeTop)
                .LineStyle = xlContinuous
                .ColorIndex = 0
                .TintAndShade = 0
                .Weight = xlThin
            End With
            With Selection.Borders(xlEdgeBottom)
                .LineStyle = xlContinuous
                .ColorIndex = 0
                .TintAndShade = 0
                .Weight = xlThin
            End With
            With Selection.Borders(xlEdgeRight)
                .LineStyle = xlContinuous
                .ColorIndex = 0
                .TintAndShade = 0
                .Weight = xlThin
            End With
            With Selection.Borders(xlInsideVertical)
                .LineStyle = xlContinuous
                .ColorIndex = 0
                .TintAndShade = 0
                .Weight = xlThin
            End With
            With Selection.Borders(xlInsideHorizontal)
                .LineStyle = xlContinuous
                .ColorIndex = 0
                .TintAndShade = 0
                .Weight = xlThin
            End With
            With Selection.Interior
                .Pattern = xlNone
                .TintAndShade = 0
                .PatternTintAndShade = 0
            End With
            .Range("A1").Select
            .Range(Selection, Selection.End(xlToRight)).Select
            Selection.AutoFilter
            .Range("A2").Select
            .Range(Selection, Selection.End(xlDown)).Select
            Selection.Font.Bold = False
        End With
        '
        wbk.Close savechanges:=True
        
        '
        Set wks = Nothing
        Set wkb = Nothing
        '
        MyFile = Dir
    Loop
    Application.ScreenUpdating = True
End Sub