Google Groups no longer supports new Usenet posts or subscriptions. Historical content remains viewable.
Dismiss

Locate hyperlinks

1 view
Skip to first unread message

Stherien

unread,
Dec 12, 2001, 10:15:29 AM12/12/01
to
How can I locate all of the hyperlinks in a multipage
spreadsheet?

Dave Peterson

unread,
Dec 12, 2001, 5:54:08 PM12/12/01
to
If the hyperlinks are added to cells with Ctrl-K (Insert|Hyperlink), this may
help:

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

0 new messages