上記でダメなら下記も試してみてください。
strPath = "C:\Users\" & UserName & "\○○○リスト" & Format(Now(), "yyyymmdd") & ".xlsx"
通報 ...
上記でダメなら下記も試してみてください。
strPath = "C:\Users\" & UserName & "\○○○リスト" & Format(Now(), "yyyymmdd") & ".xlsx"