Sub Remove_Hyperlinks()IfTypeName(Selection) <>"Range"ThenExitSubLet Application.ScreenUpdating =False
Selection.Hyperlinks.Delete
Let Application.ScreenUpdating =True
End SubTags: Macros, Excel, hyperlink, remove
✔ VBA Excel Specialist® - Quaisquer soluções e/ou desenvolvimento de aplicações pessoais, ou da empresa, que não constem neste Blog podem ser tratados como consultoria freelance. Contate-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