Wechsel von Dir um Inhalt auszudrucken

Ich habe folgendes Makro:

Sub AlleDrucken()
'Druckt immer die ersten 2 Seiten der Datei
Dim WB As Workbook
Dim FName$
ChDrive "c"
ChDir "C:\dokumente und Einstellungen\fujitsu\eigene Dateien\Privat\Blue\Inventarlisten\Herbst-Winter 02\"
FName = Dir("*.xls")
While FName <> ""
Set WB = Workbooks.Open(Filename:=FName)
Worksheets(1).PrintOut
Charts(1).PrintOut
WB.Close
FName = Dir()
Wend
End Sub

Im Verzeichnis Inventarlisten habe ich verschiedene Perioden. Wie kann ich von Verzeichnis zu Verzeichnis springen und jeweils das oben aufgeführte Makro ausführen. Ohne das ich für jede Periode ein neues Makro machen muss.

Vielen Dank für Euer Input

Gruss

Urs