Thanks p45cal,

I was able to use the following code and it works like a charm! I appreciate your help.

Sub CountSymantec()
    Dim WS_Count As Integer
    Dim I As Integer
    Dim count As Integer
    Dim shtName As String
    count = 0
    WS_Count = ActiveWorkbook.Worksheets.count
    For I = 1 To WS_Count
        If InStr(ActiveWorkbook.Worksheets(I).Range("B5").Value, "Symantec Endpoint Protection : 12") > 0 Then
        count = count + 1
        Sheets("Dashboard").Range("E33").Value = Sheets("Dashboard").Range("E33").Value & ActiveWorkbook.Worksheets(I).Name & "; "
        End If
    Next I
    Sheets("Dashboard").Range("D33").Value = count
End Sub