You can use a CountIf formul for that.  This will count all cells
within row 11 that starts with "www".
=COUNTIF(11:11,"www*")

If you want to do a column, then:
=COUNTIF(A:A,"www*")

Hi,

Right click the sheet tab, view code and paste this in.
Select the row you want to search and run this:-

Sub sonic()
Dim myRange As Range
Set myRange = Selection
   For Each c In myRange
       If UCase(Left(c.Value, 3)) = "WWW" Then Count = Count + 1
   Next
MsgBox Count
End Sub

Mike