Option Explicit
Sub finkhyperlinks()
Dim myLnk As Hyperlink
Dim wks As Worksheet
For Each wks In ActiveWorkbook.Worksheets
For Each myLnk In wks.Hyperlinks
MsgBox myLnk.Parent.Address & vbLf & _
myLnk.Parent.Parent.Name
Next myLnk
Next wks
End Sub
This routine doesn't find them if they were added with the worksheet formula
=hyperlink().
Good enough???
Stherien wrote:
>
> How can I locate all of the hyperlinks in a multipage
> spreadsheet?
--
Dave Peterson
ec3...@msn.com