View Single Post
  #3   Report Post  
Posted to microsoft.public.excel.programming
igor igor is offline
external usenet poster
 
Posts: 31
Default Identify link location

Tom,

You are the best.

Thank you
-----Original Message-----
Are you talking about external links/references in cells?

If so, just loop through all your cells and see if they

contain brackets
([ ]) which would indicate a reference to another

workbook. You could then
put that information in another sheet

Dim sh as Worksheet
Dim rw as Long
Dim rng as Range
Dim cell as Range
rw = 1
for each sh in thisworkbook.worksheets
if sh.Name < "Report" then
set rng = Nothing
on Error Resume Next
set rng = sh.UsedRange.SpecialCells(xlFormulas)
On Error goto 0
if not rng is nothing then
for each cell in rng
if instr(cell.Formula,"[") then
worksheets("Report1").Cells(rw,1).Value

= _
sh.Name & " - " & cell.Address & " - "

_
& cell.Formula
rw = rw + 1
End If
Next
End if
End if
Next

--
Regards,
Tom Ogilvy


"igor" wrote in message
...
Hi,

I have a spreadsheet that has multiple links. Is there a
way to create a different sheet that will display the

list
of links in the following format:

SheetName-Cell(Address)- Full Link(cell value)

thank you for your help



.