check for links
i will be grateful for a piece of code to check if a worbook opened by the
running macro has any links -- with kind regards Spike |
check for 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--- -- Ryan--- If this information was helpful, please indicate this by clicking ''Yes''. "Spike" wrote: i will be grateful for a piece of code to check if a worbook opened by the running macro has any links -- with kind regards Spike |
check for links
many thanks
-- with kind regards Spike "ryguy7272" wrote: 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--- -- Ryan--- If this information was helpful, please indicate this by clicking ''Yes''. "Spike" wrote: i will be grateful for a piece of code to check if a worbook opened by the running macro has any links -- with kind regards Spike |
All times are GMT +1. The time now is 07:52 AM. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com