Search box possibilities

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
    Dim ws As Worksheet, rng As Range
    If Not Intersect(Target, Range("A1")) Is Nothing Then
        For Each ws In ThisWorkbook.Sheets
            If ws.Name <> ActiveSheet.Name Then
                With ws.UsedRange
                    Set rng = .Find(Target, LookIn:=xlValues, lookat:=xlWhole)
                    If Not rng Is Nothing Then Application.Goto rng
                End With
            End If
        Next ws
    End If
End Sub