Ist es möglich folgendes
Dim sFile As String, sPatch As String
sPath = Application.DefaultFilePath & "\"
sFile = Range("F2").Value & "_" & _
Range("I2").Value & ".XLS"
ActiveWorkbook.SaveAs sPath & sFile
in einen Ordner zu Speichern welcher automatisch mit aktuellem Monatsname und Jahr erstellt wird(z.B "Juni06")