Чтобы реализовать присоединение макроса к гиперссылке:
Добавьте обработчик события Worksheet_FollowHyperlink в рабочую таблицу,
, например, если для гиперссылки в ячейке E4
Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
If Target.Range.Address = "$E$4" Then
MsgBox "You can run some code if this hyperlink to " & _
Target.SubAddress & " in " & Target.Range.Address & " is clicked"
End If
End Sub
Это выполняется после перехода по гиперссылке, код MsgBox должен быть заменен кодом для автофильтрации активного листа, который будет целевым листом, в данном случае Sheet2.