Find cell based on value in dropdown menu

[Nilelator]

i have a spread sheet that has 2070 rows. would like to have a drop down menu based on a condensed list (107) that when selected will auto find the first row of the condensed list. i saw that someone had posted a VBA that would do what i am after but now i can't find it.
1. the condensed list is on sheet 'code #' column BT1:BT106
2. the drop down list is on sheet 'LABOR HRS BY DATE' A1
3. and the search column is A16:A2070

I cannot reduce the condensed list any further and cannot reduce the number of rows either. and the columns go out to "BGO"

 

[Nilelator]

found my answer in an older post, thank you

[Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim vFIND As Range
If Not Intersect(Target, Range("A1")) Is Nothing Then
If Range("A1") = "" Then Exit Sub
On Error Resume Next
Set vFIND = Range("A14:A2069").Find(Range("A1").Value, LookIn:=xlValues, LookAt:=xlWhole)
If Not vFind Is Nothing Then
vFIND.Select
ActiveWindow.ScrollRow = Selection.Row
End If
End If
End Sub]