Windows XP: Access Abfrage per Makro

So klappt leider doch noch nicht richtig!!!  :'(

Kann mir einer sagen was ich ändern muss, damit in der Access-Datei nur ein bestimmtes Tabellenblatt und zwar das letzte der jeweiligen Excel-Datei aufgelistet wird?

Im Moment wird das erste Tabellenblatt aller Dateien aufgelistet.....

Modul sieht im Moment so aus:

Option Explicit
Sub Aktualisieren()

Dim MyFile$, MyPath$, MyName$, strFile$
    MyPath = 'Z:\MySpace\Space\'    ' Set the path.
    MyName = Dir(MyPath & '*.xls', vbNormal)    ' Retrieve the first entry.
    Do While MyName <> ''    ' Start the loop.
        ' Ignore the current directory and the encompassing directory.
        If MyName <> '.' And MyName <> '..' Then
            ' Use bitwise comparison to make sure MyName is a directory.
            strFile = MyPath & MyName
            If (GetAttr(strFile) And vbNormal) = vbNormal Then
                Debug.Print MyName    ' Display entry only if it

DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel8, 'tblImport', strFile, True

            End If    ' it represents a directory.
        End If
        MyName = Dir    ' Get next entry.
    Loop


End Sub

Alle letzten Tabellenblätter sind gleich aufgebaut, haben den gleichen Namen (z.B. 'KT1') und die gleiche Aufteilung.
Kann ich per Abfrage nicht direkt nach diesem bestimmten Tabellenblatt suchen? und wenn ja wie?


Vielen Dank für eure Hilfe



Mein Computer-System:
   
Installiertes Betriebssystem: Windows XP


Mein Computer-System:
   
Installiertes Betriebssystem: Windows XP