Hey Kicker,
Try the following sub:
Sub StopSpecificExternalLink()
Dim cL As Range
Dim extLinkDir As String, extLinkFileName As String, extLink As String
'Either of these two variables can be blank, but not both
extLinkDir = "C:\temp\"
extLinkFileName = "filename.xls"
If extLinkDir = "" And extLinkFileName = "" Then Exit Sub
If extLinkDir <> "" Then
If Right(extLinkDir, 1) <> Application.PathSeparator Then
extLinkDir = extLinkDir & Application.PathSeparator
End If
End If
If extLinkFileName <> "" Then extLinkFileName = "[[]" & extLinkFileName & "[]]"
extLink = "*" & extLinkDir & extLinkFileName & "*"
For Each cL In ActiveSheet.UsedRange.Cells
If UCase(cL.Formula) Like UCase(extLink) Then cL = cL.Value
Next
End Sub
Matt