Tested in Excel 365 (16.8730.2046) 64-bit
- Sub ExtractURLFromShape()
- Dim shp As Shape
- On Error Resume Next 'in case the shape has no URL
- i = 1
- For Each shp In ActiveSheet.Shapes
- shp.Select
- Cells(i, 5).Value = shp.Hyperlink.Address
- i = i + 1
- Next
- End Sub