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