Доброго времени суток. Выгружаю отчеты с Publishera. ДЛя удаления лишних модулей использую функцию

Public Function fclear() As Boolean
Dim oVBComponent As Object, lCountLines As Long
Dim objVBProject As Object, objVBComponent As Object, objWindow As Object
Application.DisplayAlerts = False

Set objVBProject = ActiveWorkbook.VBProject

For Each oVBComponent In ActiveWorkbook.VBProject.VBComponents
On Error Resume Next
With oVBComponent
Select Case .Type
Case 1 'Iiaoee
.Collection.Remove oVBComponent
Case 2 'Iiaoee Eeanna
.Collection.Remove oVBComponent
Case 3 'Oi?iu
.Collection.Remove oVBComponent
End Select
End With
Next
For Each oVBComponent In ActiveWorkbook.VBProject.VBComponents
On Error Resume Next
With oVBComponent
Select Case .Type

Case 100 'YoaEieaa, Eenou
lCountLines = .CodeModule.CountOfLines
.CodeModule.DeleteLines 1, lCountLines
End Select
End With
Next


Set oVBComponent = Nothing

Set objVBProject = Nothing: Set objVBComponent = Nothing: Set objWindow = Nothing

ActiveWorkbook.Save
Application.Quit
End Function


при запуске выдается ошибка Expected End Function. Подскажите из-за чего это может быть