Assuming the Address of the hyperlink contains the fully qualified path to
the file then

for each lnk in Activesheet.hyperlinks
sAddr = lnk.Address
if dir(sAddr) = "" then
' not found, do what
else
' verified, do what
end if
Next
--
Regards,
Tom Ogilvy

"Mike Dickey" wrote in message
...
I have a spreadsheet that allows me to filter down to
specific groups of items in an inventory system. I used
the HYPERLINK function to create links to PDF drawings
(approx. 900) to confirm part selection. Creating
hyperlinks for each drawing would be much too time
consuming. The drawings are updated or changed once in a
while. Over time I have encountered broken links in the
spreadsheet. I need help verifying the existence of the
links. Does anyone know of a function, marco, or VBA code
that will verify the existence of the target file for each
hyperlink?