Доброго времени суток. Подскажите как получить путь к активной книге без названия самой книги.

Public Function РАСПОЛОЖЕНИЕКНИГИ() As String
   РАСПОЛОЖЕНИЕКНИГИ = ActiveWorkbook.FullName
End Function

выдает с именем файла: Y:\Заявки\2019\Юг\Оплата.xlsm (нужно убрать Оплата.xlsm)

Спасибо.