Yes I did in a test workbook environement... adn came up with this

ChDir "\\tangent1\PLP"
Workbooks.Open Filename:="\\tangent1\PLP\Ongoing Summary.xls",
UpdateLinks:=3
ActiveWorkbook.Save
ActiveWorkbook.Close
ActiveWorkbook.Unprotect
ActiveWorkbook.UpdateLink Name:= _
"\\tangent1\PLP\Ongoing Summary.xls", Type:= _
xlExcelLinks
ActiveWorkbook.Protect

Which worked in my test workbook environment but fails in my real
environement with