hyperlinks

M

Michele

is there a way to view all hyperlinks in a workbook so i can make sure there
are none linking out of my work book. i believe i have a couple trying to
draw info from somewhere else and i can't find it.
 
D

Dave Peterson

Do you really mean Hyperlinks or do you mean links to other workbooks?

I've never seen a hyperlink try to get information and put it into a workbook.

If you meant links to other workbooks...

When I can't find links, I'll use Bill Manville's FindLink program:
http://www.oaltd.co.uk/MVP/Default.htm
 
M

Michele

file:///\\animal\shared\Accounting\DEBBIE '05-'06\ADESOGAN.xls - '61'!A1
this is an example of one of my links inside one of my workbook. it leads to
another page in the same workbook. i have about 26 workbook with about 31
worksheets in each. each workbook is independent of each other, there should
be not link leading out of the workbook itself. i think i may have some links
leading out and i can't locate them. there are so many links in each
workbook. i tried you suggestion but it found no links anywhere in the
workbook...lol. just trying to see if there is a way to look at each
link...maybe in a list or something so i can make sure there is no links
leading out of each workbook.
 
D

Dave Peterson

Something like this may help you find those hyperlinks:

Option Explicit
Sub findHyperlinks()
Dim wks As Worksheet
Dim rptWks As Worksheet
Dim oRow As Long
Dim myHyperlink As Hyperlink

Set rptWks = Worksheets.Add
rptWks.Range("a1").Resize(1, 4).Value _
= Array("Name", "Cell Address", "Hyperlink Address", _
"Hyperlink SubAddress")

oRow = 1
For Each wks In ActiveWorkbook.Worksheets
If wks.Name = rptWks.Name Then
'do nothing
Else
For Each myHyperlink In wks.Hyperlinks
oRow = oRow + 1
rptWks.Cells(oRow, "A").Value = "'" & wks.Name
On Error Resume Next
rptWks.Cells(oRow, "B").Value = myHyperlink.Parent.Address(0, 0)
rptWks.Cells(oRow, "C").Value = myHyperlink.Address
rptWks.Cells(oRow, "D").Value = myHyperlink.SubAddress
On Error GoTo 0
Next myHyperlink
End If
Next wks
End Sub

If I have a choice, I'll use the =hyperlink() worksheet function. It seems
better behaved.

David McRitchie posted this and it might help you:

=HYPERLINK("#"&CELL("address",C5),C5)
=HYPERLINK("#"&CELL("address",sheetone!C5),sheetone!C5)
=HYPERLINK("#"&CELL("address",'sheet two'!C5),'sheet two'!C5)
 
Top