いつもお世話になっています 教えていただきたいです このコードをユーザーフォームにある コマンドボタ

いつもお世話になっています
教えていただきたいです
このコードをユーザーフォームにある
コマンドボタンから
実行するとthisWorkbookが
閉じられ他の開いてある
ブックはそのままのこります


Dim wb As Workbook
For Each wb In Workbooks
If wb.Name <> thisWorkbook.Name Then
wb.Close
End If
Next

質問者からの補足コメント

• 標準モジュールから
  実行すると問題なくうまくいくのですが

    補足日時：2021/12/01 09:38

No.2 ベストアンサー 回答者： めぐみん_ 回答日時： 2021/12/04 17:44

理由はわかりませんが、

＞標準モジュールから実行すると問題なくうまくいくのですが

コードを標準モジュールに記載してCallで呼んでみてもダメなのかな？

No.1 回答者： ShowMeHow 回答日時： 2021/11/30 17:26

For Each wb In Workbooks

debug.print wb.name
debug.print thisworkbook.name
debug.print wb.Name <> thisWorkbook.Name
next
などやって原因をさぐってみたら？