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