Public Sub findLink()
Dim ws As Worksheet
Dim rng As Range
For Each ws In ThisWorkbook.Worksheets
For Each rng In ws.UsedRange
If InStr(rng.Formula, “”) > 0 Then
Debug.Print (ws.Name & ” - ” & rng.Formula)
End If
Next rng
Next ws
End Sub
Public Sub findLink()
Dim ws As Worksheet
Dim rng As Range
For Each ws In ThisWorkbook.Worksheets
For Each rng In ws.UsedRange
If InStr(rng.Formula, “”) > 0 Then
Debug.Print (ws.Name & ” - ” & rng.Formula)
End If
Next rng
Next ws
End Sub
