Filter results of separate sheet based on another cell text

[zefrogi]

I have two sheets setup: One with records, and one with links. I've got the point with the code below where if I double click on the heading "Link" within the Records sheet then it directs to the Links sheet and filters them based upon the reference in the original "Link" heading.

I was wondering, would I be able to still have the "Link" column but have the VBA code take the reference from the Reference column so I can add a formula to count the amount of links within the Links sheet for that reference... Hope this makes sense. So I could double click on the on the formula link in the "Aim" column and have it return the links of that records reference I've clicked on.

My VBA knowledge is much of copy and pasting from this website!

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
   If Target.Column = 3 Then
      Cancel = True
      With Sheets("Links")
         .Range("A1").AutoFilter 1, Target.Value
         Application.Goto .Range("A1"), True
      End With
   End If
End Sub

 

[zefrogi]

Managed to solve this with the code from this link: Excel - How to double click a cell and reference another sheet?

Option Explicit

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    ' Define constants.
    Const wsName As String = "Links"   ' Destination Worksheet Name
    Const SourceColumn As String = "C"  ' Source Column String
    Const CriteriaColumn As String = "A"
    
    ' Not sure if this is even possible.
    If Target.Rows.Count > 1 Then Exit Sub
    
    If Not Intersect(Target, Columns(SourceColumn)) Is Nothing Then
        Dim Criteria As Variant
        Criteria = Cells(Target.Row, CriteriaColumn)
        If Not IsError(Criteria) And Not IsEmpty(Criteria) Then
            Dim cel As Range
            With ThisWorkbook.Worksheets(wsName)
                .Range("A1").AutoFilter 1, Criteria
                 Application.Goto .Range("A1"), True
            End With
        End If
    End If

End Sub