View Single Post
  #3   Report Post  
Posted to microsoft.public.excel.programming
K Dales[_2_] K Dales[_2_] is offline
external usenet poster
 
Posts: 1,163
Default Remove Hyperlinks

Sub RemoveLinks()
Dim ThisSheet as Worksheet, ThisLink as Hyperlink
For Each ThisSheet in ThisWorkbook.Worksheets
For Each ThisLink in ThisSheet.Hyperlinks
ThisLink.Delete
Next ThisLink
Next ThisSheet
End Sub
--
- K Dales


"dthmtlgod" wrote:

I have a couple of workbooks that have hyperlinks scattered throughout the
worksheet (many worksheets). Can I programtically remove all these with a
macro?