Datei aktivieren

Sub Öffnen_Details()
With Application
.Calculation = xlManual
.MaxChange = 0.001
End With
Dim iCounter As Integer
With Application.FileSearch
.LookIn = ThisWorkbook.Path & "\04-EXPENSES - BREAKDOWN (ANADATA)"
.SearchSubFolders = False
.Execute msoSortByFileType
.FileType = msoFileTypeExcelWorkbooks
For iCounter = 1 To .FoundFiles.Count
Workbooks.Open Filename:= _
.FoundFiles(iCounter) _
, UpdateLinks:=0
Next iCounter
End With
With Application.FileSearch
.LookIn = ThisWorkbook.Path & "\03-FLASH PRO LAND"
.SearchSubFolders = False
.Execute msoSortByFileType
.FileType = msoFileTypeExcelWorkbooks
For iCounter = 1 To .FoundFiles.Count
Workbooks.Open Filename:= _
.FoundFiles(iCounter) _
, UpdateLinks:=0
Next iCounter
End With
Workbooks.Open Filename:=ThisWorkbook.Path & "\" & "Kontrolle Salden.xls", UpdateLinks:=0
With Application
.Calculation = xlAutomatic
.MaxChange = 0.001
End With
Calculate
End Sub

Jetzt hätte ich gerne noch, das nach dem das ganze Makro gelaufen ist und die Berechnung erfolgte mir automatisch die Datei "Hauptmenü-2007-08" aktiviert wird.
Dadurch das sich die Datei jedes Monat ändert ist dies aber nicht möglich ohne das makro monatlich zu ändern.
Ich will aber auch nicht die Datei als "Hauptmenü-2007" abspeichern.
Also das makro sollte am anfang die aktuelle datei auslesen und dann am ende diese dann aktivieren.
Vielleicht kann mir jemand dabei helfen
lg
Rupert