Why my loop stops?

I have a code to export all codes to a text file. I have to export all codes in several woorkbooks… I use the code below but it stops after executing few files. any help?

Sub callExport()

Dim wkbk As Workbook
For Each wkbk In Application.Workbooks
Call ExportAllModules
Next wkbk

End Sub