About Us

Works great, thanks

Ken Wright wrote:
When you say 'all linked workbooks', do you mean all workbooks directly
linked to the current workbook, or every workbook in every link in every
workbook that is opened by the routine, ie if book a is linked to b, and b
to c and c to d and d to e etc, then by running the routine from a, you
would open b, c, d, e?

If you just want to open all workbooks with references in 'Edit Links'
within your activeworkbook, then how about:-

Sub OpenAllLinks()
Dim CurWkbk As Workbook
Dim arLinks As Variant
Dim intIndex As Integer
Set CurWkbk = ActiveWorkbook
arLinks = CurWkbk.LinkSources(xlExcelLinks)

If Not IsEmpty(arLinks) Then
For intIndex = LBound(arLinks) To UBound(arLinks)
CurWkbk.OpenLinks arLinks(intIndex)
Next intIndex
Else
MsgBox "The active workbook contains no external links."
End If
End Sub

Slight tweak on example straight out of help.

Thread Tools	Search this Thread
Show Printable Version	Search this Thread: Advanced Search
Display Modes
Switch to Linear Mode Switch to Hybrid Mode Threaded Mode

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
** Links don't update UNLESS source file is open	Jack	Links and Linking in Excel	1	July 27th 05 02:02 PM
** Links don't update UNLESS source file is open	Jack	Links and Linking in Excel	0	July 14th 05 05:55 PM
Button fails to call macro when open an Excel via Intranet	tigertax	Excel Discussion (Misc queries)	1	April 12th 05 10:21 AM
Open Word Doc From Excel Macro	MATT	Excel Discussion (Misc queries)	4	December 14th 04 12:09 AM
How do I get my personal macro worksheet to open whenever I open .	Claudia_R	Excel Discussion (Misc queries)	3	December 9th 04 11:59 PM

Menu

About Us