Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
        If Not Intersect(Target, Range("A1:A20")) Is Nothing Then
            Sheet2.Activate
            ActiveSheet.Range("A1").Select
        Else
            Exit Sub
        End If
End Sub

' You can also refer to a specific range this way for the If condition
If Target.Column = 1 Then

Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, _
      ByVal Target As Range, Cancel As Boolean)

    'I've assumed Sheet1 is the code name. If it is the actual sheet name
    'then change the test to
    'If Sh.Name = "Sheet1" Then
    If Sh.CodeName = "Sheet1" Then
        
        Cancel = True
        
        With Sheet2     'The code name of the sheet you want to go to.
            .Activate
            .Range("A1").Select
        End With
    End If

End Sub