something along the lines of:fname = "constantPartOfName" & Time * 86400 & ".xls"ActiveWorkbook.SaveAs fname