I have a similar question as posed in this thread:
Advanced search
about this code:
Sub searchVal()
Application.ScreenUpdating = False
Dim foundVal As Range
Dim sAddr As String
Dim response As String
response = InputBox("Please enter the value to search.")
With...