Excel 2016 - Formulae or link sheet are automatically removed

%3CLINGO-SUB%20id%3D%22lingo-sub-2407626%22%20slang%3D%22en-US%22%3EExcel%202016%20-%20Formulae%20or%20link%20sheet%20are%20automatically%20removed%3C%2FLINGO-SUB%3E%3CLINGO-BODY%20id%3D%22lingo-body-2407626%22%20slang%3D%22en-US%22%3E%3CP%3EHi%20All%20%2C%26nbsp%3B%3C%2FP%3E%3CP%3E%26nbsp%3B%3C%2FP%3E%3CP%3EWe%20have%20been%20facing%20an%20issue%20with%20some%20of%20out%20excel%20files%20which%20contain%20formulaes%20%2F%20linked%20sheets%20would%20automatically%20have%20these%20linking%20%2F%20formulaes%20removed%20randomly.%26nbsp%3B%20This%20is%20happening%20with%20random%20users%20and%20random%20files.%3C%2FP%3E%3CP%3E%26nbsp%3B%3C%2FP%3E%3CP%3ECurrently%20using%20%3A%20Excel%202016%20standard%2032%20bit.%26nbsp%3B%3C%2FP%3E%3CP%3EOS%20%3A%20Windows%2010%2020%20H2%20-%2064%20bit.%26nbsp%3B%3C%2FP%3E%3CP%3E%26nbsp%3B%3C%2FP%3E%3CP%3EWe%20have%20standard%20repair%20%2F%20uninstall%20%2F%20reinstall%20%2F%20latest%20patch%20updates.%20The%20only%20thing%20which%20seems%20to%20be%20persistent%20is%20that%20usually%20all%20these%20file%20shave%20.xls%20or%20.xlsm%20attachments.%26nbsp%3B%3C%2FP%3E%3C%2FLINGO-BODY%3E%3CLINGO-LABS%20id%3D%22lingo-labs-2407626%22%20slang%3D%22en-US%22%3E%3CLINGO-LABEL%3EExcel%3C%2FLINGO-LABEL%3E%3CLINGO-LABEL%3EFormulas%20and%20Functions%3C%2FLINGO-LABEL%3E%3C%2FLINGO-LABS%3E
Occasional Visitor

Hi All , 

 

We have been facing an issue with some of out excel files which contain formulaes / linked sheets would automatically have these linking / formulaes removed randomly.  This is happening with random users and random files.

 

Currently using : Excel 2016 standard 32 bit. 

OS : Windows 10 20 H2 - 64 bit. 

 

We have standard repair / uninstall / reinstall / latest patch updates. The only thing which seems to be persistent is that usually all these file shave .xls or .xlsm attachments. 

1 Reply

@Ashutosh_Vashisht17 

Here is a quick macro where you can delete all links at once.

 

Sub BreakLinks()
  Dim arrLinks As Variant, i As Integer
  
  arrLinks = ActiveWorkbook.LinkSources(xlLinkTypeExcelLinks)
  If Not IsEmpty(arrLinks) Then
    For i = 1 To UBound(arrLinks)
      ActiveWorkbook.BreakLink _
        Name:=arrLinks(i), _
        Type:=xlLinkTypeExcelLinks
    Next
  End If
  
End Sub

 

 Hope I could help you with this information.

 

Nikolino

I know that I don't know (Socrates)

* Kindly Mark and Vote this reply if it helps please, as it will be beneficial to more Community members reading here.