質問: private subをコピーしない シートにprivate subが組み込まれた状態で、そのシートを別のブックに移動した場合、private subも同時に移動されてしまいます。 シートの移動を行った場合private subのみ移動しない方法はないのでしょうか? 埋め込んであるのは private sub worksheet_deactivate() on error resume next commandbars("××").delete call *** end sub となっています。 別ブックに移動した場合、resume nextとなっているのにエラーで停止します。このエラーを出さない方法でも構いません。 別の方法として新しいシートを作成してcellsコピーを行うと共に、印刷範囲を指定してから移動する方法も試したのですが、シートに複数のページがある場合は微妙に印刷範囲がずれてしまって上手くいきませんでした。 宜しくお願い致します。
回答: コードをsheetモジュールではなくて thisworkbookモジュールのsheetdeactivateイベントに書いておけばいいと思いますが。 '--------------------------------------------- private sub workbook_sheetdeactivate(byval sh as object) if sh.name = "該当シー名" then on error resume next commandbars("××").delete call xxxx end if end sub '---------------------------------------------- 以上。