Fehlermeldung Typen unverträglich

Sub PrüfenNachFehlermeldung()
Const sSourcePath As String = "I:\550000\551000\ADB\Mitarbeiterordner\Thordsen-Sörensen\ _
Aktien_Tool\Quellen_Daten"
Dim fso As Object
Dim oFile As Object
Set fso = CreateObject("Scripting.FileSystemObject")
For Each oFile In fso.GetFolder(sSourcePath).Files
Application.ScreenUpdating = False
If LCase(Right(oFile.Name, 4)) = ".xls" Then
Application.Workbooks.Open (oFile.Path)
Application.Sheets("Close").Activate
Call PrüfenNachFehlermeldung1
Application.ActiveWorkbook.Close
Application.ScreenUpdating = True
End If
Next
End Sub

Sub PrüfenNachFehlermeldung1()
For Each Zelle In Range("I4:N33")
If Zelle = "#N/A N/A" Then
MsgBox ThisWorkbook.FullName & " " & "Datenblatt enthält Fehler, bitte prüfen!"
Exit For
End If
Next
End Sub