Introductions - New to VBA Express - Beginner at VBA Code

Can someone help direct me to where I might figure out how to use VBA to search for text within the current section header?

Thanks in Advance!

Sam Mur

.
Well .. there are different methods of searching. You can search an entire sheet ... the entire workbook (all tabs) ... just one column on one sheet ... several columns on several sheets.

It all depends on what and how you want to search.

This macro will search SHEET 1, entire sheet, for the term you enter in the InputBox when it appears.

Code:

---

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

---