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