Sorry I did not catch it sooner, but I just saw why your original code did not work.
Dim strFilePath as string
strFilePath replace(NOW," ","")
strFilePath replace(strFilePath,":","")
strFilePath replace(strFilePath,"/","")
strfilepath = "c:\"My_Report_Name_" & strfilepath & ".xls"...