SalesDB_Week_20.xlsx
NameOfFile = Range("WeekliesName").Value
NameOfFile = Replace(NameOfFile, " - ", "_")
NameOfFile= Replace(NameOfFile,  " ", "_")