イベントハンドラ中のthisは混乱のもと （略） "this"はshiraishiオブジェクトではなく、ボタンのDOMオブジェクトになってしまいます。 混乱のもとなのは分かるけど、それをどう解決すればいいのかについて上記記事はふれていない。 おかげで、はまった。 つ…

次の2つのFunctionを組み合わせれば良い。 ' 指定の名前のワークシートが存在するかどうか Function isExistingSheetName(sheetname As String) As Boolean Dim ws As Worksheet Dim flag As Boolean '現在のシートを記憶 Set recentSheet = ActiveSheet For…