Slet Link til andre workbooks
HejForsøgt at få slettet links til andre regneark uden held via VBA. Og det skal være via makroer/VBA. Fordi det bruges af mange i forskellige sammenhænge. Det bruges også mange gange.
Der er p.t. kun link til en Excelfil.
Det største problem er at jeg ikke engang kan slette/afbryde linket via: Data/Rediger Kæder.
Men jeg har forsøgt med denne lille kode for at fjerne kæden via VBA (tyvstjålet fra forskellig side - som selvfølgelig giver problemer hvis der er flere end 1 link):
aLinks = ActiveWorkbook.LinkSources(xlExcelLinks)
If Not IsEmpty(aLinks) Then
For i = 1 To UBound(aLinks)
LinkSomSlettes = aLinks(i)
Next i
End If
ActiveWorkbook.BreakLink Name:=LinkSomSlettes, Type:=xlExcelLinks
