On Error GoTo for empty folder results in error

Question

I have a Macro which should go through subfolders of a folder and extract information from each of the Excel-sheets. Unfortunately my code halts when there is an empty folde