Variabler Speicherort

ich möchte den Speicherort in Abhängigkeit einer Tabellenzelle speichern.
Der feste Ordner ist

c:\Speicherort\

variabel hinter dem Ordner "Speicherort" sind Monatsordner mit z.B. folgenden Bezeichnungen:

10_02
11_02 etc.

Zelle A1 ist ein Datum (z.B. 13.10.02)

Mein Versuch war nun folgender:

Dim Dateiname

Dateiname = "C:\Speicherort\" & Format(Value(Cell(1,1),"mm_yy") & Name
ActiveWorkbook.SaveAs Dateiname

Problem: es wird zwar unter "Speicherort" gespeichert, nicht allerdings im gewünschten Unterordner. Die Datei hat dann folgenden Namen: "10_02Name"

Kann jemand helfen?

Danke und Grüße
Mike