엑셀VBA 값바뀌면 해당값 바로 찾아서 이동

Private Sub Worksheet_Change(ByVal Target As Range)
    
If Not Target.Address = "$Y$10" Then Exit Sub
 
 
   'Application.EnableEvents = False
 
Range("z847").Select
 
   Dim banVal
    banVal = Range("$y$10").Value
 
Dim rng As Range
 
 
If banVal <> "" Then
For Each rng In Range("z:z")
    If rng.Value = banVal Then
        Application.Goto Range("X" & Application.WorksheetFunction.Match(banVal, Range("z:z"), 0)), True
        Exit Sub
    Else
    End If
    
Next
Else
Range("$y$11").Select
End If
 
   Application.EnableEvents = True ' 이벤트가 발생되면 작동합니다
 
End Sub