Private Sub Workbook_Open()
Dim wrkBoook As Workbook
Dim wrkBook As Workbook
Dim strPath As String, strFile As String
    
Set wrkBoook = ThisWorkbook
        strPath = wrkBoook.Path  '--- адрес папки где хранится рабочая книга

        strFile = strPath & "\El_trigger.xls"  '--- Книга в которой хранятся данные на одном листе и подставляются обработанные на другой лист

    Set wrkBook = Application.Workbooks.Open(strFile) '--- открываем книгу и передаем объект в другой sub

        Call PriceRegion(wrkBook, strPath) '--- вызов другого sub с процедурой обработки таблиц одного листа и копирования данных на другой лист
'--- в другом sub данные с промежуточного листа, куда произошла вся выгрузка обработанных этим sab данных 
             shtNew.SaveAs strPath & "\price" & Format(Now(), "yyyymmdd_hhnnss") & ".txt", xlUnicodeText  '--- эта строка взята из конца процедуры другого sub
'--- на этом этапе нормально создается файл с обработанными данными
        wrkBook.Close True '--- БЕЗ этой команды созданный файл содержит нормальные данные, но книга закрывается с запросом об сохранении изменения в созданном файле price
'--- если подтвердить сохранение, то данные переписываются на текстовые данные без форматирования, которые содержатся на листе, который нужно обработать. Если просто закрыть, то все НОРМАЛЬНО
'--- С ЭТОЙ командой закрытия создающийся файл перезаписывается автоматически. В ЧЕМ ЗДЕСЬ ПОДВОХ!!!!!!!!!!!!!!!!!!!!!!!!!
        
        ThisWorkbook.Close True  '--- файл всегда закрывается нормально
End Sub