Добрый день. В документе есть несколько вкладок и необходимо информацию связать на листах гиперссылками. Макрос работает, но после переоткрытия файла после сохранения и переустановки ссылок всегда выскакивает окно с предупреждением. Боюсь что пользователи будут пугаться такого поведения и будет много звонков. С чем может быть связана проблема?
Код
Sub поиск()
Dim rng As Range, RngZam As Range, LastRowMer As Long, LastRowZam As Long
With Sheets("Мероприятия")
LastRowMer = .Cells(Rows.Count, 3).End(xlUp).row
End With
With Sheets("Нарушения")
LastRowZam = .Cells(Rows.Count, 1).End(xlUp).row
End With
Set rngMer = Worksheets("мероприятия").Range("C5:C" & LastRowMer)
Set RngZam = Worksheets("Нарушения").Range("A3:B" & LastRowZam)
strok = 1
solb = 1
selrow = 1
For strok = 1 To (LastRowMer - 5)
If rngMer.Cells(strok, 1).Value <> "" Then
For selrow = 1 To (LastRowZam - 42)
If rngMer.Cells(strok, 1).Value = RngZam.Cells(selrow, 1).Value Then
Application.ActiveSheet.Hyperlinks.Add Anchor:=rngMer.Cells(strok, 1), _
Address:="", _
SubAddress:="Нарушения" & "!" & RngZam.Cells(selrow, 1).Address, _
ScreenTip:="Нарушение №" & RngZam.Cells(selrow, 1).Value & ":" & vbCr & RngZam.Cells(selrow, 2).Value, _
TextToDisplay:=""
End If
Next selrow
End If
Next strok
End Sub