Abfragen gezielt aktualisieren?

Sub AuffrischungAbfragen()
Dim sucheVerbindung As Long                 'sucht Verbindungszeichenfolge
Dim Datenverbindung As WorkbookConnection   'für einzelne Datenverbindungen
On Error Resume Next
'Geht durch jede Datenverbindung und sucht Verbindungszeichenfolge
For Each Datenverbindung In ThisWorkbook.Connections
sucheVerbindung = InStr(1, Datenverbindung.OLEDBConnection.Connection, "Provider= _
Microsoft.Mashup.OleDb.1", vbTextCompare)
'Sollte die Textkette nicht gefunden werden, erhält SucheVerbindung keinen Wert und es  _
gibt einen Fehler
If Err.Number  0 Then
Err.Clear
Exit For
End If
'wurde die Schleife bisher nicht abgebrochen und die Textkette gefunden, wird die  _
Verbindung aufgefrischt
If sucheVerbindung > 0 Then Datenverbindung.Refresh
Next Datenverbindung
End Sub