При разрешении выполнения макросов И попытке сохранения файла закрывается с ошиб

[novinky]

Единственный макрос в файле

Код Выделить Развернуть

Function Get_Date(sWb As String)
    Application.Volatile True
    Dim vData, objCloseBook As Object
   
    Dim Path As String
    Path = ThisWorkbook.Path
    Path = (Path & "\")
   
    Path = (Path & sWb & ".csv")
   
    Set objCloseBook = GetObject(Path)
   
    vData = objCloseBook.Sheets(sWb).Range("A1").Value
   
    objCloseBook.Close False
    Set objCloseBook = Nothing
   
    Get_Date = vData
End FunctionИ вызывается 1 раз в А1, =Get_Date("101006668"), книга из одного листа все остальные ячейки пусты.
Свою функцию выполняет, но при включенном разрешении выполнения макросов и при нажатии сохранить:
1. При нажатии Сохранить .xlms файл вместо простого сохранения предлагает путь для сохранения как при нажатии "Сохранить как", далее в этом окне нажимаю "Сохранить" файл закрывается сам без сохранения и при следующем открытии предлагает файлы для восстановления как при некорректном завершении.
2. Но при нажатии Х (закрыть), файл сохраняется корректно.
3. При нажатии "Файл" -> "Закрыть" так же падает как и в 1 случае.

101006668.csv файл из 11 строк содержания

Код Выделить Развернуть

23;11;24;7;52;48;101006668;;;
1;28;0;0;D2;E8;0;1F;7A;-25.15
2;28;0;0;D2;E8;0;0B;B9;-17.30
3;28;0;0;D2;E8;0;13;8D;-8.20
...
Подскажите пожалуйста возможные варианты исправления.

[novinky]

Извиняюсь тему удалить не могу.
Проблема ушла после удаления строки с Application.Volatile.
Про которое ранее читал что при
 Application.Volatile False в начале и
 Application.Volatile True в конце скрипта
Скрипт должен выполняться быстрее и кушать меньше ресурсов