Путь к файлу объявить константой.

[valerij]

Игорь, вот так - не зависит от года, месяца, когда я открою старый файл.
И всё меняется автоматом - папки год, месяц в новых файлах....
В общем как мне надо.

Const RootPath As String = "='H:\Док_Офис\Офисный Учет\"
Sub zxc()
Dim MonthFileName As String, sMonth As String, sYear As String
        sYear = Trim(Split(Trim(Mid(ActiveWorkbook.FullName, 1, 39)), _
            "\")(UBound(Split(Trim(Mid(ActiveWorkbook.FullName, 1, 39)), "\")) - 2))
        sMonth = Trim(Split(Trim(Mid(ActiveWorkbook.FullName, 1, 39)), _
            "\")(UBound(Split(Trim(Mid(ActiveWorkbook.FullName, 1, 39)), "\")) - 1))
 MonthFileName = RootPath & sYear & "\" & sMonth & "\[На_ХЗ.xls]Sheet1'!"
 MsgBox MonthFileName
End Sub

И то что ты мне выложил, естественно!!! мне пригодится, я там разобралсИ.
За константу СПАСИБО.

[IgorGO]

а мне-то за что? это твоя константа, а не моя))