Search box possibilities

Yes there is ...

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

Ahhhhh you are clever Sintek brilliant. Can this be assigned to a text box so it can be created into a button or graphic? Something like this for example.
Capture.JPG

Here you go...

An absolute pleasure...That's how I also started off...Enjoy, tx for rep+

Hi Sintek,

Is it possible to generate an error message if the number entered in the search box doesn't exist? I can't seem to get it to work. Simply saying "This number does not exist"
Also if nothing is entered in the search box can an error be generated to say "A search number is required" or something to this affect?

@nigelog

Close...This part will error on first worksheet loop if no value found

Else: MsgBox "Entered number does not exist"

Option Explicit

Sub Picture2_Click()
Dim ws As Worksheet, rng As Range, Fnd As String
Fnd = Sheet1.TextBox1.Text
If Fnd = "" Then
    MsgBox "A SEARCH NUMBER IS REQUIRED", vbInformation, ""
    Exit Sub
End If
For Each ws In ThisWorkbook.Sheets
    If ws.Name <> ActiveSheet.Name Then
        With ws.UsedRange
            Set rng = .Find(Fnd, LookIn:=xlValues, lookat:=xlWhole)
            If Not rng Is Nothing Then
                Application.Goto rng
                Exit Sub
            End If
        End With
    End If
Next ws
MsgBox "NUMBER DOES NOT EXIST", vbInformation, ""
End Sub