Option Explicit
Sub FindInLists()
'
' Select FindInLists Macro
'
Dim SheetsToSearch, SrchStrg As String, ws As Excel.Worksheet, r As Range
SheetsToSearch = Array("Sheet1") '// Enter the exact sheet names of sheets to be searched
SrchStrg = Application.InputBox("Enter Term to search ", "Search Term", Type:=2)
For Each ws In ThisWorkbook.Sheets
If Not IsError(Application.Match(ws.Name, SheetsToSearch, 0)) Then
With ws.Range("A6:P6067") 'EDIT RANGE AS REQUIRED
Set r = .Find(what:=SrchStrg, After:=.Range("A1")) 'find the cell whose value is equal to SrchStrg and activate it
If Not r Is Nothing Then
ws.Activate: r.Activate
'PUT YOUR CODE HERE TO WRITE THE TICKER DATA SOMEWHERE FOR REVIEW
ElseIf r Is Nothing Then
MsgBox "Search term does not exist. ", vbInformation, "Item Not Found"
End If
End With
End If
Next
End Sub