Hello Quillie19,
Here is some code that should help. It would be copied into the "General" section (very top) of the UserForm.
Sub Example()
Dim FoundIt As Range
Dim What As Variant
Dim Wks As Worksheet
What = TextBox1.Value
For Each Wks In Worksheets
Set FoundIt = Wks.UsedRange.Find(What, , xlValues, xlWhole, xlByRows, xlNext, False, False, False)
If Not FoundIt Is Nothing Then
TextBox2.Value = FoundIt.Address(External:=True)
TextBox3.Value = FoundIt.Offset(0, 1).Value
Exit Sub
End If
Next Wks
End Sub
EDIT: You will need to change the names of the TextBoxes to what you have named them.
Bookmarks