Sub ChangeLinks()
ActiveWorkbook.ChangeLink Name:="menu.xls", _
NewName:="wiebe.xls", Type:=xlExcelLinks
End Sub
or
NewName:=range("a1").value, Type:=xlExcelLinks

--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"Ben" wrote in message
...
Hi,

i have tryed but failed in writing a macro that would change the filename
in
a link. I want my users to enter the file name in a cell on one sheet and
then press a button to change the filename in all links in the workbook.

can any one help me?

THX