Как имя Книги "загнать" в Модуль

[valerij]

Есть макрос

Sub связи()
ActiveWorkbook.BreakLink Name:="E:\Раб_Стол-W7\На 14.03.10.xls", Type:= xlExcelLinks
End Sub

Имя Книги, красным, оно, имя, меняется каждый день "На 14.03.10.xls", "На 15.03.10.xls", "На 16.03.10.xls", ......"На 31.03.10.xls", как автоматом сделать?
Т. е. с каким именем открыл книгу, такое имя стало в модуле.

[Dophin]

ActiveWorkbook.BreakLink Name:="E:\Раб_Стол-W7\"&ThisWorkbook.Name, Type:= xlExcelLinks

как то так

[The_Prist]

Надо прояснить: Вы связи с какой книгой рвете? Из которой макрос открыт? Или с активной?

Для Активной:

ActiveWorkbook.BreakLink Name:=ActiveWorkbook.FullName, Type:= xlExcelLinks

Для той, в которой макрос:

ActiveWorkbook.BreakLink Name:=ThisWorkbook.FullName, Type:= xlExcelLinks

Общий смысл, думаю,ясен...

[valerij]

Сообщение от Dophin

как то так

Сообщение от The_Prist

Для той, в которой макрос..

Спасибо, оба варианта работают.
---------------
| ^^пиво^^ \\|""\\_,_
|___________||___|__|)
(@)(@)""*|(@)(@)**(@)