Ссылки из макроса без имен

[mephist]

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

Range("G5").FormulaR1C1 = _
        "='[mp.xlsx]8.6 ses'!R9C3"

Записать

    Active.Worksheets(1).Range("E21:E22").Copy ThisWorkbook.WorksSheets(1).Range("J21").Active
    ActiveSheet.Paste Link:=True

Или что-нибудь вроде того.
Если нельзя, скажите пожалуйста. А если можно, тогда почему второй код вообще не работает? То есть ошибок при компиляции не выдает, но и действий не выполняет.

[pivas]

А если так:

Public Sub gg()
Worksheets(1).Range("E21:E22").Copy
Worksheets(1).Range("J21").Select
ActiveSheet.Paste Link:=True
End Sub

[EducatedFool]

Или так:

Sub test()
    With ActiveWorkbook.Worksheets(1)
        ThisWorkbook.Worksheets(1).Range("J21").Formula = "=" & .Range("E21").Address(, , , True)
        ThisWorkbook.Worksheets(1).Range("J25") = "=" & .Range("G44").Address(, , , True)
    End With
End Sub

В результате получаем:

  Ячейка: J21     Формула  (стиль A1):   =[Книга2]Лист1!$E$21
                  Формула  (стиль R1C1): =[Книга2]Лист1!R21C5

  Ячейка: J25     Формула  (стиль A1):   =[Книга2]Лист1!$G$44
                  Формула  (стиль R1C1): =[Книга2]Лист1!R44C7

[mephist]

Спасибо большое. Мне лучше подходит код EducatedFool. Только одно маленькое уточнение.
Такое можно написать

  
ThisWorkbook.Worksheets(1).Range("J21:J25").Formula = "=" & .Range("J21:J25").Address(, , , True)

так чтобы ячейке J21 одного листа присвоилась J21 другой книги, ячейке J22 одного листа присвоилась J22 другой книги, ячейке J23 одного листа присвоилась J23 другой книги. Хотя как-нибудь это можно сделать???
Вообще код выглядит так:

With Workbooks.Open(Filename, , True)
        .Worksheets(1).Unprotect
        .Worksheets(1).Range("E9").Copy ThisWorkbook.Worksheets(1).[E9]
        .Worksheets(1).Range("E12:E13").Copy ThisWorkbook.Worksheets(1).[E12]

и вот таких присваиваний у меня море. нужно теперь перейти от значений к ссылкам. причем желательно не переписывая все это.
теперь у меня есть

With Workbooks.Open(Filename, , True)
        Worksheets(1).Unprotect
        ThisWorkbookThisWorkbook.Worksheets(1).Range("E9").Formula = "=" & ThisWorkbook.Worksheets(1).Range("E9").Address(, , , True)
        ThisWorkbookThisWorkbook.Worksheets(1).Range("E12:E13").Formula = "=" & ThisWorkbook.Worksheets(1).Range("E12").Address(, , , True)

И естественно ячейкам Е12 и Е13 присваивается значение ячейки Е12
А очень хочется Е12 присвоить Е12, а Е13 присвоить Е13. И таким образом сотным других ячеек.

[mephist]

Если это в принципе невозможно, напишите пожалуйста.

[pivas]

Вам нужны значения или формулы для связи этих ячеек?
И какие диапазоны надо копировать.

[mephist]

Уже прописано присвоение значений. Хочу перейти к присвоению ссылок, сильно не переписывая старый код.
Диапазоны: Соседние ячейки либо в одном столбце, либо в одной строке.