On Fri, 1 Aug 2003 10:05:52 +0100, Michael Beckinsale wrote:

I have a Excel spreadsheet that needs to be linked to several Excel files
which are
always identical in layout but will be renamed and moved to different
folders.

I have written the macro which re-defines the filepath etc but my problem
is that once the links have been re-defined the links will not update unless
l take the following steps manually:

1) Edit
2) Links
3) UpdateNow

to make matters worst 3) has to be repeated for each link in the list.

Can somebody pls tell me or provide VBA code that will automatically
update ALL the links ?

All help greatly appreciated.


Regards

Michael Beckinsale

Code:

Sub test()

Dim MyLink as Variant

For Each MyLink In ActiveWorkbook.LinkSources(xlExcelLinks)
ActiveWorkbook.UpdateLink Name:=MyLink, Type:=xlExcelLinks
Next MyLink

End Sub


This should do what you are looking for... perhaps a little tweakin' is
required.

SL