VBA Excel - Removendo todas as referências a Links externos da planilha

Termo de Responsabilidade

Sub RemoveLinks()

Dim Link As Variant If ActiveWorkbook.LinkSources Then If MsgBox("Tem certeza que deseja retirar todos os links? ", vbYesNo + vbQuestion, "RemoveLinks") _
         = vbYes Then For Each Link In ActiveWorkbook.LinkSources ActiveWorkbook.BreakLink Name:=Link, Type:=xlLinkTypeExcelLinks Next MsgBox " Todos os Links externos do Workbook foram removidos! "
Else Exit Sub End If Else MsgBox " Não foi encontrado nenhum Link externo neste workbook."
End If

End Sub

Tags: VBA, Excel, link, remove