title: Bulk Url checker macro excel
body: <p>Im seeking for help as i have a bulk of links to check if the link is broken i have tried the below macro but it works twice and after that it is no longer working i am using ms office 10 64bit i would like to add on the macro if macro 
  can check the image resolution for example if i paste url on column A it will highlight the broken links and on column b it will show the image resolution </p>
  
  <pre><code>Sub Audit_WorkSheet_For_Broken_Links()
  
  If MsgBox("Is the Active Sheet a Sheet with Hyperlinks You Would Like to Check?", vbOKCancel) = vbCancel Then
  
      Exit Sub
  
  End If
  
  On Error Resume Next
  For Each alink In Cells.Hyperlinks
      strURL = alink.Address
  
      If Left(strURL, 4) &lt;&gt; "http" Then
          strURL = ThisWorkbook.BuiltinDocumentProperties("Hyperlink Base") &amp; strURL
      End If
  
      Application.StatusBar = "Testing Link: " &amp; strURL
      Set objhttp = CreateObject("MSXML2.XMLHTTP")
      objhttp.Open "HEAD", strURL, False
      objhttp.Send
  
      If objhttp.statustext &lt;&gt; "OK" Then
  
          alink.Parent.Interior.Color = 255
      End If
  
  Next alink
  Application.StatusBar = False
  On Error GoTo 0
  MsgBox ("Checking Complete!" &amp; vbCrLf &amp; vbCrLf &amp; "Cells With Broken or Suspect Links are Highlighted in RED.")
  
  End Sub
  </code></pre>