this can be done from xl97 and upwards and involves the use of a classmodule (This is mainly a direct copy from excel's helpsystem)

Create a classmodule
Put this code into the classmodule


Option Explicit
Public WithEvents qtQueryTable As QueryTable

Sub InitQueryEvent(QT As Object)
    Set qtQueryTable = QT
End Sub

Private Sub qtQueryTable_AfterRefresh(ByVal Success As Boolean)
Call test
End Sub
create a normal module and put this code into it

Dim clsQueryTable As New Class1

Sub RunInitQTEvent()
    clsQueryTable.InitQueryEvent _
        QT:=ActiveSheet.QueryTables(1)
End Sub

Sub test()
MsgBox "Querytable is now updated"
End Sub



Before the code will run it's nessecary to run Sub RunInitQTEvent()