Excel VBA, чтобы сделать гиперссылку для активной ячейки

Question

Я хочу сделать ссылку из активной ячейки в книге 1, можно использовать его в книге 2. Я использую следующий код, который назначен на кнопку:

With ActiveSheet 
    .Hyperlinks.Add Range("F6"), _ 
     .Parent.FullName & "#'" & .Name & "'!" & "$A$1", TextToDisplay:="link" 
End With 

Этот код сделал ссылку с полным путем, и я могу использовать его в любой книге, но мне нужны некоторые изменения, которые я мог бы сделать:

1. Сделать гиперссылку активной ячейки не ячейкой A1, которая указана в коде.
2. Значение в активной ячейке становится текстом для отображения аргумента функции гиперссылки.

Благодаря

PS после Vityata answere: как я изменить диапазон ("F6") в ActiveCell адрес?

Answer 1

я считаю, что просто закрыть эту тему.

Sub Button36_Click() 
Dim newRange As Range 
Set newRange = Range(ActiveCell, ActiveCell.Offset(numRows, numCols)) 
    With ActiveSheet 
    .Hyperlinks.Add Anchor:=newRange, _ 
     Address:=.Parent.FullName & "#'" & .Name & "'!" & ActiveCell.Address, TextToDisplay:=ActiveCell.Text 
     End With 
End Sub 

Answer 2

Для того, чтобы получить активное значение и адрес ячейки, изменять свой код в соответствующие места со следующим:

ActiveCell.Address 
ActiveCell.Value