Update links not working

[rickblunt]

Hello, I have been using the following code to update the links in my WB's for quite a while and it has always worked fine. Now it seems that they do nothing and the only way for my data to refresh is to open and close all of the source workbooks. Is there something wrong with the code or something that I am missing? Even if I do a typical refresh all from the tool bar nothing gets updated either.

I guess I could write up a new sub but I am pretty sure that I can't write a sub in one workbook to open and close other WB's; so I am at a loss as to how to get around this. I would appreciate any help with this - thanks,

Sub UpdateLinks()

        ActiveWorkbook.UpdateLink Name:="L:\CommonRW\FacilitiesApps.xlsm", Type:= _
            xlExcelLinks
        ActiveWorkbook.UpdateLink Name:= _
        "L:\CommonRW\Facilities Inspection App.xlsm", Type:= _
            xlExcelLinks
        Application.OnTime DateAdd("s", 1800, Now), "UpdateLinks"
              
        [B99] = Now
        End With  
                  
        ActiveWorkbook.Save        

End Sub

 

[gitmeto]

My first step would be to record a macro and compare