めめさん、こんにちは。

＞コメントが付かないようですが、解決されたでしょうか。
＞少し確認してみましたが、ポップアップで「いいえ」を選択したときだけでなく
＞「キャンセル」でもエラーになるようですね。
＞上書き確認のポップアップを消すだけでしたら、以下の様に変更してみて下さい。
＞
＞xlApp.Application.DisplayAlerts = False
＞xlApp.Application.Activeworkbook.SaveAs(ls_savename)
＞xlApp.Application.DisplayAlerts = True
＞
＞こうすると、既定値が使用されるようです。
＞ただし、既に ls_savename で指定したファイルが開かれているときは、
＞やはり SaveAs でエラーが発生してしまいますが。
＞
＞

レスありがとうございます。m(_ _)m
解決しないので上書きする場合はファイルを削除するようにしていました。
さっそくめめさんの方法、使わせていただきます。
あわせてfileopen関数を使って開かれているかを調べて使ってみようと思います。
大変助かりました。(^^)v
めめさんの教えてくれたスクリプト？の記述、難しそうですね。PBしかしらないので
勉強になります。