ExcelのVBAで、ソース自体が書かれたシート名

質問

ExcelのVBAで、ソース自体が書かれたシート名を取得したいと考えています。

やりたいことは、シートAからシートBに切り替えたときにシートAを削除したい。そこでシートAにworksheet_deactivateを追加して削除文を記載したのですが、activesheetで取得できるのはシートB名のためシートBが削除されてしまいます。
ソース自体はオリジナルシートがあり、シートAはオリジナルシートからコピーしたものです。
オリジナルシートは他シート名でもコピーすることがあるため、ソースに固定シート名は使えません。
なにか方法はないでしょうか？

回答No.1

keithin · ベストアンサー

ご質問の直接の回答としては
＞ソース自体が書かれたシート名を取得したい

基本的にはMeによって「ソースが書かれたシート」を取得します。

実際に試してみると色々と手を尽くす必要がありそうですが，原紙（Original）シートに例えば下記のように仕込んでみます

private sub Worksheet_Deactivate()
　if me.name = "Original" then exit sub
　application.screenupdating = false
　me.move
　activeworkbook.close False
end sub