Change source of a link in VBA

[DeeCeeL]

Hi,

As part of a VBA sequence, I want to change the source of a link in an excel spreadsheet.
In the file there is only one source. I was the macro to change whatever source link is in the file to a given link.

I started like that :

Sub Changelink()

Dim x0 As Variant
x0 = ActiveWorkbook.LinkSources(xlExcelLinks)
ChDir "G:\Example\Budgets"
ActiveWorkbook.ChangeLink Name:=x0, _
NewName:="example.xls", Type:=xlExcelLinks
End Sub

Many thanks for your help.

Dee