Filename %20 when adding Workbook from SharePoint in Email

[SamT]

SalesDB_Week_20.xlsx

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