title: Code to Change Live Hyperlinks into Text URLs not working
body: <p>I need to Change Live Hyperlinks into Text URLs I have the following Code but after running it the Hyperlinks are still live</p>
  
  <p>I have <code>Internet and networkpaths with hyperlink</code> un-checked</p>
  
  <p>thanks</p>
  
  <pre><code>Sub RemoveHyperLink()
  Dim ws As Worksheet
  Dim Rng As Range, Cell As Range
  Dim LC As Long, LR As Long
  
  Set ws = ThisWorkbook.Sheets("Updated_UnMatched")
  With ws
    LC = .Cells(1, .Columns.Count).End(xlToLeft).Column
    LR = .Cells.Find("*", [a1], , , xlByRows, xlPrevious).Row
    Set Rng = .Range("A2").Resize(LR, LC)
  End With
  
  For Each Cell In Rng
    If Cell.Hyperlinks.Count &gt; 0 Then
        Cell.Value = Cell.Hyperlinks.Item(1).Address
    End If
  Next Cell
  End Sub
  </code></pre>