А что вы подразумевате под "битой ссылкой"?  
 
Покажите пример файла (хватит 10 строк со ссылками), где вы вручную пеметили битые ссылки.  
 
Тут нужен макрос, который в цикле пройдёт по всем ссылкам (попытавшись загрузить страницу с каждой ссылки), и в зависимости от результата загрузки страницы пометит ячейку цветом (или в соседнем столбце поставит пометку о битой ссылке)

{quote}{login=vaha}{date=12.02.2011 05:00}{thema=как проверить вебссылки на наличие битых}{post}Под "битой ссылкой" я подразумеваю ссылку, по которой в браузере ничего не откроется. В результате работы макроса нужно чтобы получилось что-то похожее на пример в файле.{/post}{/quote}  
 
Sub vaha()  
For i = 1 To Cells(Rows.Count, 1).End(xlUp).Row  
On Error Resume Next  
Range("A" & i).Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True  
If Err.Number <> 0 Then Err.Clear: Range("B" & i) = "ERR"  
Next  
End Sub  
 
только не знаю как убить браузер чтобы не открывался, а так работает :)

{quote}{login=Юрий М}{date=12.02.2011 06:56}{thema=}{post}Мне вот интересно - сколько времени потребуется макросу для открытия 10 000 страниц :-){/post}{/quote}  
 
Юра так автор про скорость вообще ничего не упоминал.  
Согласно заявленным требованиям задачу решили......  
а ну да..... надо подсветить  
Sub vaha()  
For i = 1 To 10  
On Error Resume Next  
Range("A" & i).Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True  
If Err.Number <> 0 Then Err.Clear: Range("A" & i).Interior.Color = 255  
Next  
End Sub  
 
вот и подсветили, а знал бы как браузер убить убил бы...  
=96000=

{quote}{login=Юрий М}{date=12.02.2011 07:09}{thema=}{post}Дим, так я ведь без какого-либо намёка в твой адрес :-) Мне действительно интересно.{/post}{/quote}  
Юра так можно и рейтинги сайтов поднимать, поставил на ночь пусть молотит пока оперативы хватит. :)

Ещё вот это попалось:  
Private x As Object    
 
Private Sub Command1_Click()    
   Set x = CreateObject("InternetExplorer.Application")    
   ' Окно браузера видимо    
   x.Visible = True    
   ' Переход по ссылке    
   x.Navigate "http://bit.pirit.info/forum"    
End Sub    
 
Private Sub Command2_Click()    
   x.Quit ' Закрытие окна браузера    
End Sub

{quote}{login=vaha}{date=12.02.2011 10:29}{thema=как проверить вебссылки на наличие битых}{post}новая вводная: браузер открывать не нужно.{/post}{/quote}  
Новая вводная !?  
Гугл Вам поможет, там и вводите (:)<

Так я уже не про скорость - про закрытие обозревателя :-)  
И про ожидание загрузки страницы там тоже мелькало...

Function Test_http(adr_http As String)  
   Dim wsh As Object  
   Dim RegEx As Object, RegM As Object  
   Dim FSO As Object, fil As Object  
   Dim ts As Object, txtAll As String, TempFil As String  
   Set wsh = CreateObject("WScript.Shell")  
   Set FSO = CreateObject("Scripting.FileSystemObject")  
   Set RegEx = CreateObject("vbscript.regexp")  
   TempFil = "C:\http_temp.txt"  
 
   wsh.Run "%comspec% /c ping " & adr_http & " > " & TempFil, 0, True  
   With RegEx  
       .Pattern = "(\d{1,3}\.){3}\d{1,3}"  
       .Global = False  
   End With  
   Set fil = FSO.GetFile(TempFil)  
 
   Set ts = fil.OpenAsTextStream(1)  
   txtAll = ts.ReadAll  
   On Error Resume Next  
   Set RegM = RegEx.Execute(txtAll)  
   If Err.Number = 5 Then  
       Test_http = RegM(0)  
   Else  
       Test_http = "Err"  
   End If  
     
   ts.Close  
 
   Kill TempFil  
       
   Set ts = Nothing  
   Set wsh = Nothing  
   Set fil = Nothing  
   Set FSO = Nothing  
   Set RegM = Nothing  
   Set RegEx = Nothing  
End Function

от 4 до 6 сек один адрес  
10 000 за три дня перемолотит

{quote}{login=Юрий М}{date=13.02.2011 01:18}{thema=Re: }{post}{quote}{login=R Dmitry}{date=13.02.2011 12:51}{thema=}{post}от 4 до 6 сек один адрес {/post}{/quote}  
Это если узел ответит? А если молчит?{/post}{/quote}  
94.100.191.201***3,218018  
79.174.64.68***3,171875  
Err***0,2189941  
77.88.21.3***3,218994  
Err***2,5  
все равно нахомутал с  ошибкой :) так точно работает  
 
Function Test_http(adr_http As String)  
   Dim wsh As Object  
   Dim RegEx As Object, RegM As Object  
   Dim FSO As Object, fil As Object  
   Dim ts As Object, txtAll As String, TempFil As String  
   Set wsh = CreateObject("WScript.Shell")  
   Set FSO = CreateObject("Scripting.FileSystemObject")  
   Set RegEx = CreateObject("vbscript.regexp")  
   TempFil = "C:\http_temp.txt"  
 
   wsh.Run "%comspec% /c ping " & adr_http & " > " & TempFil, 0, True  
   With RegEx  
       .Pattern = "(\d{1,3}\.){3}\d{1,3}"  
       .Global = False  
   End With  
   Set fil = FSO.GetFile(TempFil)  
 
   Set ts = fil.OpenAsTextStream(1)  
   txtAll = ts.ReadAll  
   On Error Resume Next  
   Set RegM = RegEx.Execute(txtAll)  
   Test_http = RegM(0)  
   If Err.Number <> 0 Then  
     Err.Clear  
     Test_http = "Err"  
   End If  
     
   ts.Close  
 
   Kill TempFil  
       
   Set ts = Nothing  
   Set wsh = Nothing  
   Set fil = Nothing  
   Set FSO = Nothing  
   Set RegM = Nothing  
   Set RegEx = Nothing  
End Function  
 
Sub hdhdh()  
Dim tm As Single  
tm = Timer  
Debug.Print Test_http("yajjjj.ru") & "***" & Timer - tm  
'Debug.Print Timer - tm  
End Sub