|
シート1にお決まりの書式や式を書き込んで置いて、シート追加ボタンを押したときに、このシート1のコピーシートと裏の計算のために新しく追加と成るシートのの名前は『シート1のコピーシートの名前+裏』と言う形の名前にしたいのですが、コピーシートの名前を新しく追加になったシートへ上手く引き渡せません。
シート名の変数を上手く引き渡す方法を教えて下さい。
因みに標準モジュールにはシートコピーの命令を以下の様に書いて有ります。
Public 名前 As String
-------------------------
Sub シートコピー()
Sheets("Sheet1").Select
Sheets("Sheet1").Copy After:=Sheets(1)
名前 = ActiveSheet.Name
MsgBox "戻り前 " & 名前
End Sub
又ワークシートのイベントには
Private Sub Workbook_NewSheet(ByVal Sh As Object)
シートコピー
MsgBox "戻り後= " & 名前
End Sub
此処で『名前』と言う変数はコピーシートを作成した時点ではあるのですが
サブプロシージャーから戻ったイベントの中では無くなっています。
この『名前』変数を保持する方法を教えて下さい。
よろしくお願いします。
|
|