回答ありがとうございます。
On Error GoTo Err_Handler2
.activeworkbook.saveas strsavebookpath
Err_Handler2:
MsgBox "適当なメッセージ"
xls.close SaveChanges:=False
Resume Exit_Here
としてみたのですが、xls.closeが間違っているということで、うまくいきませんでした。
初歩的な質問で申し訳ございませんが、どうすればよかったのでしょう。
通報 ...