Right click the sheet tab, view code and paste this in.
Select the row you want to search and run this:-
Dim myRange As Range
Set myRange = Selection
For Each c In myRange
If UCase(Left(c.Value, 3)) = "WWW" Then Count = Count + 1