Option Explicit Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) Dim i As Long Dim col As Integer, cln As String If Not Intersect(Target, Range("N1:T2")) Is Nothing Then col = Cells(2, 3).Value: If col = 0 Then Exit Sub If col = 1 Then cln = "D" If col = 2 Then cln = "F" If col = 3 Then cln = "H" For i = 4 To Cells(Rows.Count, cln).End(xlUp).Row If Cells(i, cln) = Target.Value Then Exit For Next i End If Cells(i, cln).Select Cancel = True End Sub