Need a macro to remove all hyperlinks from a worksheet

Sub RemoveAllShapes()
   Dim shObj As Object    'Worksheets and Chart sheets
   Dim s As Shape
   Dim i As Long, ttl As Long
 
   For Each shObj In ActiveWorkbook.Sheets
      ttl = shObj.Shapes.Count
      For i = ttl To 1 Step -1
         shObj.Shapes(i).Delete
      Next
   Next
End Sub