| Home |
| Search |
| Today's Posts |
|
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
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 |
|
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
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 |
|
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
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 |
| Reply |
| Thread Tools | Search this Thread |
| Display Modes | |
|
|
Similar Threads
|
||||
| Thread | Forum | |||
| Print specific cells to another worksheet if check box cell links | Excel Discussion (Misc queries) | |||
| Check for Addin before Update Links | Excel Programming | |||
| Find & Replace Cell Links for Check Boxes | Excel Discussion (Misc queries) | |||
| Check box links | Excel Discussion (Misc queries) | |||
| create links to check boxes marked "good" fair"and "bad" | Excel Worksheet Functions | |||
Linear Mode
