Students Macro - Automation error issue

So i have 2 folders - input, output and a students.xlsm file

```Dim inputSheetName As String
Dim inputFolderName As String
Dim outputFileName As String
Dim outputfoldername As String
Dim macroSheetName As String
Dim reportingSheetName As String
Dim AssessmentFile As Workbook
Dim ws As Worksheet

Dim ErrorMessage As String
Dim masterFile As Workbook
Dim newWorkBook As Workbook
Dim myPath As String
Dim myExtension As String
Dim strFileExists As String
Dim parentPath As String
Dim newFilePath As String
Dim outputFilePath As String
Dim outputFile As String
Dim myFile As String




'--------------------------------------------------------------------
inputFolderName = "Input"
outputfoldername = "Output"
outputFileName = "Students_Output_File.xls"

macroSheetName = "Students Macro"


'------------------------------------------------------------------------------
ErrorMessage = ""
'On Error GoTo SomethingGoneWrong

'Optimize Macro Speed
  Application.ScreenUpdating = False
  Application.EnableEvents = False
  Application.Calculation = xlCalculationManual
  Application.DisplayAlerts = False

Set masterFile = ThisWorkbook 'the .xlsm file containg macro
  parentPath = masterFile.Path
  myPath = parentPath & "\" & inputFolderName & "\"
  outputFilePath = parentPath & "\" & outputfoldername & "\"




'Target File Extension (must include wildcard "*")
  myExtension = "*.xls*"
  myFile = Dir(myPath & myExtension)
'Target Path with Ending Extention

Do While myFile <> ""
    Set AssessmentFile = Workbooks.Open(FileName:=myPath & myFile)
    For Each ws In AssessmentFile.Worksheets
        ActiveSheet.Name = Replace(myFile, myExtension, "")
    Next ws



    Application.ActiveWorkbook.Close
    myFile = Dir


Loop





    'Set variable equal to opened Assessment workbook

    outputFile = outputFilePath & outputFileName
    strFileExists = Dir(outputFile)

   If strFileExists = "" Then
        MsgBox outputFile
        'automation error prompted on the line below
        AssessmentFile.SaveAs FileName:=outputFile, FileFormat:=xlWorkbookNormal
    Else
        If IsFileOpen(outputFile) Then
        GoTo CloseTheOpenOutputFile
        Else: Kill outputFile
        DoEvents
        AssessmentFile.SaveAs FileName:=outputFile, FileFormat:=xlWorkbookNormal
        End If
        DoEvents
    End If


    'Ensure Workbook has opened before moving on to next line of code
    DoEvents
    ErrorMessage = "there is an issue with the name of the sheet in input file"

CloseTheOpenOutputFile:
Application.EnableEvents = True
    Application.Calculation = xlCalculationAutomatic
    Application.ScreenUpdating = True
    Application.DisplayAlerts = True
MsgBox "An instance of " & VBA.Chr(34) & "Output File.xls" & VBA.Chr(34) & " is open. Please close it and try running the code again"
'Close Input csv Workbook without saving

    AssessmentFile.Close SaveChanges:=False



End Sub
------------------------------------------------------------------------------------------
Function IsFileOpen(FileName As String)
Dim iFilenum As Long
    Dim iErr As Long

    On Error Resume Next
    iFilenum = FreeFile()
    Open FileName For Input Lock Read As #iFilenum
    Close iFilenum
    iErr = Err
    On Error GoTo 0

    Select Case iErr
    Case 0:    IsFileOpen = False
    Case 70:   IsFileOpen = True
    Case Else: Error iErr
    End Select

End Function```