Aantal Linksources in file bepalen

geachte lezer,

ik heb een macro gemaakt, welke data uit externe files ophaalt:

Code; zie hieronder:

Sub Autpen_RefreshFile()
[K2] = "* Bezig met ophalen data uit bronfiles"
Application.DisplayAlerts = False
On Error Resume Next
ActiveWorkbook.UpdateLink Name:=ActiveWorkbook.LinkSources
On Error GoTo 0
[H7] = Now 'datum en tijd voor checks
[K2] = "" 'cel leegmaken voor andere macro
Calculate
Application.DisplayAlerts = True
CreateObject("WScript.Shell").Popup "* Data uit bronfiles opgehaald (indien aanwezig)" & vbNewLine & vbNewLine & "(Mededeling verdwijnt automatisch)", 1, ""
End Sub

Maar nu wil ik graag een code invoeren welke aangeeft of er wel of niet externe data in het file aanwezig is. Het maakt mij daarbij niet uit hoeveel er zijn, maar alleen wel of niet. Dit kan ik dan verder in bovenstaande query inbakken zodat mijn checks dan kloppen.
Ik weet niet precies waar dit in bovenstaande macro moet worden ingebakken.

dank alvast!!

met vriendelijke groet,
Gesus

zo:?

dank!, dit werkt

met vriendelijke groet,
Gesus

Mij lijkt dit voldoende:


Waarom gebruikers lastig vallen met zaken die op de achtergrond plaatsvinden ?

dank voor je reactie, maar ik weet niet wat dit doet.

Sub M_snb()
ThisWorkbook.UpdateLinks = 3 'wat doet dit en wat betekent het cijfer 3 (of andere getallen)? Op internet kan ik hierover helaas niets vinden.
ThisWorkbook.Save 'ik wil niet saven via deze macro dus laat ik dit weg.
End Sub

met vriendelijke groet,
Gesus

Ook jou VBEditor heeft een F1 en een F2 toets.

:thumb: