Sub
Remove_Hyperlinks()
If TypeName(Selection) <> "Range" Then Exit Sub Let Application.ScreenUpdating = False Selection.Hyperlinks.Delete Let Application.ScreenUpdating = True
If
TypeName(Selection) <>
"Range"
Then
Exit
Let Application.ScreenUpdating =
False
Selection.Hyperlinks.Delete
True
End
Nenhum comentário:
Postar um comentário