Check All Hyperlinks

[lonely]

Hi All,
I have aan excel sheet which has lot of hyperlinks. I have been trying to make a VB application which can check for the validity of all these hyperlinks. Please can someone help me with it.
thanks,
Lonely

 

[MartinK]

Try:
<pre><SPAN style="color:#00007F">Sub</SPAN> CheckLinks()
<SPAN style="color:#00007F">Dim</SPAN> h <SPAN style="color:#00007F">As</SPAN> Hyperlink
<SPAN style="color:#00007F">On</SPAN> <SPAN style="color:#00007F">Error</SPAN> <SPAN style="color:#00007F">Resume</SPAN> <SPAN style="color:#00007F">Next</SPAN>
<SPAN style="color:#00007F">For</SPAN> <SPAN style="color:#00007F">Each</SPAN> h <SPAN style="color:#00007F">In</SPAN> Worksheets(1).Hyperlinks
h.Follow
<SPAN style="color:#00007F">If</SPAN> Err.Number <> 0 <SPAN style="color:#00007F">Then</SPAN>
MsgBox h.Name & vbLf & " is not valid"
h.Range.ClearContents <SPAN style="color:#007F00">' or h.range.entirerow.delete</SPAN>
Err.Clear
<SPAN style="color:#00007F">End</SPAN> <SPAN style="color:#00007F">If</SPAN>
<SPAN style="color:#00007F">Next</SPAN>
<SPAN style="color:#00007F">End</SPAN> <SPAN style="color:#00007F">Sub</SPAN></PRE>

regards,
Martin

 

[lonely]

Hi Martin.
Thanks a lot for the help. Howevr, can you please tweak it a bit.
1. The invalid link should not be deleted. Instead, the next cell in the row should be populated with some indicatyor like "Link OK", "Link Invalid".

2. The valid links hould not be launched to open the web pages. Instead just the mesage "Link OK" can be posted as specified above.

3. A progress bar, if possible, would be great.

Thanks Again,
Lonely