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


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

Тем не менее, я получаю в своем скрипте гиперссылки vba:

«неверный вызов процедуры или ошибка аргумента»

Я получаю ошибку в конце кода от "linkedSheet.Hyperlinks" до "targetSheet.Name"

Любая помощь будет замечательной!

Dim targetSheet As Worksheet
Dim targetRange As Range
Dim linkedSheet As Worksheet
Dim linkRange As Range
Dim TargetRow As Long

'set variable to the sheet the hyperlink will link to
Set targetSheet = ThisWorkbook.Sheets(ActiveSheet.Name)

' specify the range on the summary sheet to link to
Set targetRange = targetSheet.Range("A1:Z100")

' set variable to sheet that will have the hyperlink
Set linkedSheet = ThisWorkbook.Sheets("Management")

For i = 6 To 1006
  Set Value = linkedSheet.Cells.Item(i, "C")
  If Len(Value) = 0 Then
  TargetRow = i
    Exit For
  End If

Next i

targetLocation = "C" & TargetRow

' specify where on that sheet we'll create the hyperlink
Set linkRange = linkedSheet.Range(targetLocation)

' create the hypperlink on the copied sheet pointing
' back to the summary sheet

  linkedSheet.Hyperlinks.Add Anchor:=linkRange, Address:="", SubAddress:= _
  "'" & targetSheet.Name & "'!" & targetRange.Address, _
  TextToDisplay:=targetSheet.Name

4


источник


Ответы: