VBA附件命名脚本打开两个回复

I have a script which I use to list attachments in an email I am replying to. It has been working fine for a few days since I last adjusted it but today it has started opening an extra reply window when it reaches the I have a script which I use to list attachments