Saltar para: Post [1], Pesquisa e Arquivos [2]

Code Snippets Blog

Pequenas rotinas em vba, vbscript e outras linguagens. Noticias sobre informática, workshops, e outras coisas relacionadas com novas tecnologias.

Code Snippets Blog

Pequenas rotinas em vba, vbscript e outras linguagens. Noticias sobre informática, workshops, e outras coisas relacionadas com novas tecnologias.

15
Nov07

Eliminar os Hyperlinks de um Workbook

Macro que elimina todos os hyperlinks do workbook activo

Sub EliminarHiperlinksExcel()
    Dim sh As Worksheet, link As Hyperlink
    Dim x As Long, t As Long
    On Error Resume Next
    For Each sh In ActiveWorkbook.Worksheets
        t = t + sh.Hyperlinks.Count
        For Each link In sh.Hyperlinks
            x = x + 1
            link.Delete
        Next
    Next
    MsgBox "Foram eliminados " & x & " de " & t & _
           " hyperlinks", vbInformation, _
           "Eliminar Hyperlinks"
End Sub