Hey-
I have this code that updates links from another program, it takes about 15-18 seconds to update and recalc(?). application.wait does not help. the problem is that the values that are updating show #N/A until they are done updating so my formula copies "#N/A" (BTW i need to copy value only )if it moves to next routine befor update is complete-Please Help I have looked for and tried many ideas, but i must be missing something.
Thanks!
Sub linkupdate2()
Dim alinks As Variant
Dim i As Variant
alinks = ActiveWorkbook.LinkSources(xlOLELinks)
If Not IsEmpty(alinks) Then
For i = 1 To UBound(alinks)
ActiveWorkbook.UpdateLink Name:=alinks(i), Type:=xlLinkTypeOLELinks
Next i
End If
End Sub
I have this code that updates links from another program, it takes about 15-18 seconds to update and recalc(?). application.wait does not help. the problem is that the values that are updating show #N/A until they are done updating so my formula copies "#N/A" (BTW i need to copy value only )if it moves to next routine befor update is complete-Please Help I have looked for and tried many ideas, but i must be missing something.
Thanks!
Sub linkupdate2()
Dim alinks As Variant
Dim i As Variant
alinks = ActiveWorkbook.LinkSources(xlOLELinks)
If Not IsEmpty(alinks) Then
For i = 1 To UBound(alinks)
ActiveWorkbook.UpdateLink Name:=alinks(i), Type:=xlLinkTypeOLELinks
Next i
End If
End Sub