Следующий код ( в контексте ThisWorkbook.Path) работает идеально, если книга содержащая макрос, открыта в приложении Excel первой

Public CHIR As String
Private Sub Auto_open()
Application.ScreenUpdating = False
Workbooks.Open Filename:=ThisWorkbook.Path + "\" + "данные.xls"
With Workbooks("данные.xls")
CHIR = .Worksheets("Лист1").Cells(1, 1).Value
End With
Workbooks("данные.xls").Close
EndSub

Но если пользователь достаточно долго работал в Excel и уже открыл несколько книг то ThisWorkbook.Path в окне отладки м содержать путь к одной из ранее открытых книг. Книга, содержащая макрос, размещена на сетевом ресурсе и запускается с ярлыка в каталоге пользователя.
Пришлось исправить след образом

Const CHIR_LI As String = "\\SERVER\PAPKA"
Public CHIR As String
Private Sub Auto_open()
Application.ScreenUpdating = False
Workbooks.Open Filename:=CHIR_LI + "\" + "данные.xls"
With Workbooks("данные.xls")
CHIR = .Worksheets("Лист1").Cells(1, 1).Value
End With
Workbooks("данные.xls").Close
EndSub

М б кто-нибудь что-нибудь посоветует? М б можно каким-то образом прочитать параметр Рабочая папка из свойств ярлыка с которого запускается книга, содержащая этот макрос?

Макрос Module1.Auto_open есть во многих книгах .xls размещенных в той же папке на сервере Но дело в том что в отладчике на компьютере пользователя эта переменная при запуске макроса содержит путь к ярлыку, которым открывается эта книга на компьтере пользователя ( Ярлык в качестве программы имеет имя книги с полным путём к ней В качестве параметра "Рабочая папка" - папку на сервере, где эта книга расположена). Дело в том что макрос вылетает по ошибке и пути к файлу данные.xls мне Excel рисует всякие разные У меня на компьютере, как-то даже был путь к файлу с которым я работала полчаса назад и уже закрыла, но после этого не выгружала Application Excel. Спасибо за правку текста, так действительно компактнее.