2/16/2004

and this:

MsgBox "end"
Exit Sub
' __________________________________________________________
test_2:
With Worksheets("VOsites").Range("a1:a9")
Set c = .Find(2, LookIn:=xlValues)
If Not c Is Nothing Then
firstaddress = c.Address
Do
c.Interior.Pattern = xlPatternGray50
Set c = .FindNext(c)
Loop While Not c Is Nothing And c.Address <> firstaddress
End If
End With
MsgBox "next TEST_2 all TOPs"
'
'

For max_loop1 = 1 To max_vo ' 1 to 530
Sheets("VOsites").Activate ' to search in Goo_tab
ActiveCell.Offset(1, 0).Select
sw = ActiveCell(VOcr1, 1).Value ' pick a VOsitename
MsgBox "search for: " & VOcr1 & "\" & ActiveCell.Value '

With Worksheets("TOPsites").Range("a1:g19")
Set c = .Find(sw, LookIn:=xlValues, LookAt:=xlWhole)
If Not c Is Nothing Then
firstaddress = c.Address
MsgBox c.Address
Do
c.Interior.Pattern = xlPatternGray50
Set c = .FindNext(c)
Loop While Not c Is Nothing And c.Address <> firstaddress
End If
End With
Next max_loop1 ' next VO
End Sub

// posted by Peter @ 22:11
Comments: Post a Comment



<< Home

Favorites

Popularity of each search engine and directory also makes big difference in traffic received from them. For example, today (January 2003) Google and Yahoo are top search properties.

more jimworld.com/tools

List of major Search Engines and Directories in alphabetical order:>

Also, depending upon your target audience, it might be recommended that your web site be also submitted in some regional (country or state specific) search engines and directories. However, you can still be sure that above list of major search engines directories covers 98% of search traffic.

 mikes helpers forum
;

By Subject

searchengine alerts
search features
Alerts
AlltheWeb
AltaVista
AskJeeves
Excite
FAST
Gigablast
Google
HotBot
Infoseek/Go
Inktomi
LookSmart
Lycos
MSN Search
Meta Search Engines
New Search Engines
News Search Engines
Openfind
Opinion Searching
Other News
Overture
Search Features
Site Updates
Teoma
WiseNut
Yahoo!

This page is powered by Blogger. Isn't yours?

Site Meter