Sub OpenUpdate()
Workbooks.Open FileName:= _
"C:\My Documents\LinkedBook.xls", UpdateLinks:=xlUpdateLinksAlways
End Sub
Sub OpenDontUpdate()
Workbooks.Open FileName:= _
"C:\My Documents\LinkedBook.xls", UpdateLinks:=xlUpdateLinksNever
End Sub
Sub OpenUpdateLinksPerSettings()
Workbooks.Open FileName:= _
"C:\My Documents\LinkedBook.xls", UpdateLinks:=xlUpdateLinksUserSetting
End Sub