Dim wb As Workbook, sh As Worksheet, ra As Range
          Set wb = GetObject(file)
          If wb Is Nothing Then Debug.Print "Íå óäàëîñü çàãðóçèòü ôàéë " & file: GoTo NextFile
          For i = 1 To wb.Worksheets.Count
              Set sh = wb.Worksheets(i)
              If sh Is Nothing Then Debug.Print "Íå óäàëîñü îáðàáîòàòü ëèñò èç ôàéëà " & _
                  file: wb.Close False: GoTo NextFile
                
              Set ra = sh.Range(CustomerAdress$)
              If ra Is Nothing Then Debug.Print "Íå óäàëîñü ïîëó÷èòü çàêàç÷èêà èç ôàéëà " & _
                  file: Debug.Print "Ïåðâàÿ ÿ÷åéêà: " & CustomerAdress$: GoTo Nexti
              Customer$ = ra.Value
                
              Set ra = sh.Range(NameAdress$)
              If ra Is Nothing Then Debug.Print "Íå óäàëîñü ïîëó÷èòü èìÿ ïðîåêòà èç ôàéëà " & _
                  file: Debug.Print "Ïåðâàÿ ÿ÷åéêà: " & NameAdress$: GoTo Nexti
              ProjectName$ = ra.Value & " (" & wb.Worksheets(i).Name & ")"
         Next i