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