Henvisning der ikke eksisterer
En fil der tidligere havde en række henvisninger til andre workbooks har fået dem lavet til værdier.Af en eller anden grund siger filen dog stadig at den har en ekstern forbindelse. Jeg har forsøgt at få den til at kigge alle faner igennem efter henvisningen, men kan ikke finde den.
Jeg brugte:
Sub Find()
Dim rngX As Range
Dim intFaneblad As Integer
For intFaneblad = 1 To ActiveWorkbook.Sheets.Count
Set rngX = Worksheets(intFaneblad).Range("A1:M200").Find(".xlsm", lookat:=xlPart)
If Not rngX Is Nothing Then
MsgBox "Found at " & rngX.Address
End If
Next
End Sub
Er der andre måder, måske der bare er en fejl i dokumentet?
