Follow along with the video below to see how to install our site as a web app on your home screen.
Note: This feature may not be available in some browsers.
Sub ChangeLinks()
Dim strFile As String
Dim strNewFile As String
strFile = "C:\File1.xls"
strNewFile = "C:\File2.xls"
With ActiveWorkbook
.ChangeLink Name:=strFile, NewName:=strNewFile, Type:=xlExcelLinks
.UpdateLink Name:=strNewFile, Type:=xlExcelLinks
End with
End Sub