Search contents of multiline cells within entire workbook

[Tom Jones]

Hi, try this:

Sub CountSEP()
    
    Dim WS_Count As Integer
    Dim I As Integer
    Dim count As Integer
    Dim shtName As String
    count = 0
    shtName = ActiveSheet.Name
    WS_Count = ActiveWorkbook.Worksheets.count
    For I = 2 To WS_Count
        If InStr(ActiveWorkbook.Worksheets(I).Range("A1").Value, "Symantec 12") > 0 Then count = count + 1
     Sheets("Dashboard").Range("B" & I).Value = Worksheets(I).Name
    Next I
    Sheets("Dashboard").Range("A2").Value = count
End Sub