remove hyperlink of many cell at a time?

J

JLatham

Remove ALL hyperlinks on a sheet:

Sub RemoveAllHyperlinks()
Cells.Select
Do While Selection.Hyperlinks.Count > 0
Selection.Hyperlinks.Delete
Loop
Range("A1").Select
End Sub

Choose the sheet, run the Macro.

to be able to just remove hyperlinks in a single column or other smaller
range, remove the
Cells.Select
line from the code, then select the cells with hyperlinks in them and run
the macro.

Need help putting the code into the workbook? See:
http://www.jlathamsite.com/Teach/Excel_GP_Code.htm

Just copy and paste from above.
 
Top