Sub AllFiles()
        Dim folderPath As String
        Dim filename As String
        Dim wb As Workbook

        folderPath = "C:usersmyfilepath"
        Do While filename <> ""
          Application.ScreenUpdating = False
            Set wb = Workbooks.Open(folderPath & filename)

            Worksheets("Current Roster").Range("A1:E1").Columns.AutoFit

            filename = Dir
        Loop
      Application.ScreenUpdating = True
    End Sub