Hi Bbotz,

I would replace all spaces " " with an underscore "_".
So you would get "Quota_File_MW_201003.xls", using

ActiveWorkbook.SaveAs FileName:=Replace(wNFileName, " ", "_")

Besides I see something strange in this part: "k:Safety\"
TMHO it should be "k:\Safety\"

HTH,

Wouter