Sub Remove_Hyperlinks()IfTypeName(Selection) <>"Range"ThenExitSubLet Application.ScreenUpdating =False
Selection.Hyperlinks.Delete
Let Application.ScreenUpdating =True
End Sub
Tags: Macros, Excel, hyperlink, remove

✔ Programação GLOBAL® - Quaisquer soluções e/ou desenvolvimento de aplicações pessoais, ou da empresa, que não constem neste Blog devem ser tratados como consultoria freelance. Queiram contatar-nos: brazilsalesforceeffectiveness@gmail.com | ESTE BLOG NÃO SE RESPONSABILIZA POR QUAISQUER DANOS PROVENIENTES DO USO DOS CÓDIGOS AQUI POSTADOS EM APLICAÇÕES PESSOAIS OU DE TERCEIROS.
Sub Remove_Hyperlinks()IfTypeName(Selection) <>"Range"ThenExitSubLet Application.ScreenUpdating =False
Selection.Hyperlinks.Delete
Let Application.ScreenUpdating =True
End Sub
Nenhum comentário:
Postar um comentário