ODBC kald sidst opdateret, avanceret

Jeg har fået dette "leveret" af bak.

1. Opret et Classmodule og i den indsætter du følgende kode (Erstat Range("A1") med den celle du ønsker dat/tid i)
'----------

Public WithEvents qtable As QueryTable

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

Private Sub qtable_AfterRefresh(ByVal Success As Boolean)
Range("A1").Value = "opdateret : " & Now()
End Sub

'-----------

2. opret et almindeligt modul og indsæt følgende kode ( erstat "Ark1" med navnet på dit ark ):
'------

Dim clsQuerytable As New Class1
Sub RunInitQTEvent()
    clsQuerytable.InitQueryEvent QT:=Sheets("Ark1").QueryTables(1)
End Sub

'------

3. I modulet ThisWorkbook indsætter du :
'-------

Private Sub Workbook_Open()
Call RunInitQTEvent
End Sub

'-------

Når regnearket åbnes for eftertiden vil det at opdatere (refreshe) query have en AfterUpdate-event der automatisk indsætter en datio/tid i celle A1


Det virker meget fint, men hvis jeg har 2 mapper i 1 ark og trykker på refresh bliver begge mapper opdateret, jeg vil så gerne udvide scriptet til at opdatere "Sidst opdateret" på begge faneblade.

Håber en vil hjælpe.