check for links

  • Thread starter Thread starter Spike
  • Start date Start date
S

Spike

i will be grateful for a piece of code to check if a worbook opened by the
running macro has any links
 
Will this do what you want?

Sub ListLinks()
Dim aLinks As Variant
aLinks = ActiveWorkbook.LinkSources(xlExcelLinks)
If Not IsEmpty(aLinks) Then
Sheets.Add
For i = 1 To UBound(aLinks)
Cells(i, 1).Value = aLinks(i)
Next i
End If
End Sub


HTH,
Ryan---
 
many thanks
--
with kind regards

Spike


ryguy7272 said:
Will this do what you want?

Sub ListLinks()
Dim aLinks As Variant
aLinks = ActiveWorkbook.LinkSources(xlExcelLinks)
If Not IsEmpty(aLinks) Then
Sheets.Add
For i = 1 To UBound(aLinks)
Cells(i, 1).Value = aLinks(i)
Next i
End If
End Sub


HTH,
Ryan---
Click to expand...
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

check for links 3
SendTo 1
Hide Formula bar while workbook is open 1
Permanently prevent User to see Formula Bar 8
list workbook names except one 1
keeping original workbook open when saving 6
Activate workbook using partial name 5
Size Matters - minimizing file size 1

Back
Top