Hej!
Jag skulle göra så här att jag först skapade tolv mappar Jan, Feb, Mars osv.
Sedan skulle jag skapa en vektor 0-11 för dessa månader. dim manader(11,1) där (x,0) är månadens namn och (x,1) är antalet dagar.
Därefter skulle jag göra en loop som gick 12 varv.
I den skulle jag göra en loop som gick så många dagar som det fanns dagar i den aktuella månaden.
I denna loop skulle jag spara en kopia av filen med koden nedan
ThisWorkbook.SaveCopyAs ("c:\temp\" & månadensnamn & "datum" & datumetsnummer & "_d.xlsx")
ThisWorkbook.SaveCopyAs ("c:\temp\" & månadensnamn & "datum" & datumetsnummer & "_n.xlsx")
mvh
Kihlman