Sub macro1()
Dim ws As Worksheet
Dim rCl As Range
Dim res As Range
Dim lrow As Long
Set res = Application.InputBox( _
prompt:="Enter ID Number", Type:=8)
If res = "" Then Exit Sub
lrow = Cells(Cells.Rows.Count, "C").End(xlUp).Row + 1
For Each ws In Worksheets
With ws.UsedRange
Set rCl = .Find(What:=CStr(res), LookIn:=xlFormulas, LookAt:=xlWhole)
If Not rCl Is Nothing Then
Application.GoTo rCl, True
rCl.Interior.ColorIndex = 3
ActiveWindow.LargeScroll ToRight:=-1
MsgBox "ID found " & ws.Name
End If
End With
Next ws
If rCl Is Nothing Then
MsgBox "ID Not found"
End If
End Sub
Also when you say make a list of keywords..You want to make it in a spreadsheet or you want to make it through inputbox??
In additional when you say report back the location..what you are looking for..sheet name along with cell address or something else??
Saurabh...