Speichern unter bestimmten Namen

habe ein kleines problem. In Zelle A1 steht z.B. BBAK2. Ich möchte nun die Arbeitsmappe unter diesem in A1 stehenden Namen unter N:\2003\(inhalt Zelle A1).xls speichern. Habe auch schon folgenden Code aus dem Forum gezogen, nur geht es bei mir nicht. Ich bekomme irgendeine Fehlermeldung. Was kann ich machen?

Sub Speichern()
Dim sFile As String, sPath As String
sPath = Application.DefaultFilePath & "\"
sFile = Range("A1").Value
sFile = Format(CDate(sFile), "yyyymmdd") & ".xls"
ActiveWorkbook.SaveAs sPath & sFile
End Sub

Danke und viele Grüße
Ulf