try:
Sub CountSEP()
Dim WS_Count As Integer
Dim I As Integer
Dim count As Integer
count = 0
WS_Count = ActiveWorkbook.Worksheets.count
For I = 1 To WS_Count
  If InStr(ActiveWorkbook.Worksheets(I).Range("A5").Value, "Symantec Endpoint Protection : 12.1.5337.5000") > 0 Then count = count + 1
Next I
MsgBox count
End Sub