newfilename = Format(DateSerial(Year(Now), Month(Now) - 1, 1), "yymm")