here's the code im telling you about...
Sub View()
Dim i As Integer
Sheets("Sheet1").Range("e1").Select
For i = 1 To 2
On Error GoTo ErrorHandler
ActiveCell.Offset(1, 0).Select
Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
ActiveCell.EntireRow.Interior.ColorIndex = 6
Application.Wait Now + TimeValue("0:0:3")
Next i
ErrorHandler:
ActiveCell.Interior.ColorIndex = 6
Resume Next
End Sub
that code opens the link listed in an excel for several seconds then opens the next one and so on..
now, if its possible, i want to find certain text on the site, color the cell green if the word is on the site while red when the word is not...
thanks in advance guys...