マクロ 現在アクティブになっているシート名・・・

いつも回答して頂きありがとうございます。

こんなマクロでも通用するシート名を所得する記述を教えて下さい。

シートを数枚挿入した後に、マクロ実行画面のシートをアクティブにしたい。

この時のマクロ実行画面のシートをマクロの中で色々使おうと思うのですが、マクロ実行画面の名前が日にちになっており、コロコロ変わるので、どうすればよいのか分かりません。宜しくお願い致します。

No.2 ベストアンサー 回答者： keithin 回答日時： 2013/06/11 03:40

sub macro1()

　dim s as worksheet
　dim i as long
　set s = activesheet

　for i = 1 to 5
　　worksheets.add after:=worksheets(worksheets.count)
　　range("A1").value = s.range("A1").value
　next i
’s.select　’マクロの中で使う目的で最初のシートをアクティブにする必要は全くありません
end sub

みたいな。

この回答へのお礼

いつも回答して頂き、ありがとうございます。

最初に選択されていたシート名を、挿入したA1セルに記述し、それを利用して、シートを選択する方法があったんですね。

ちょこっといじって、自分の記述の中に入れたいと思います。

ありがとうございました。

お礼日時：2013/06/12 00:58

No.1 回答者： -Ken-Ken- 回答日時： 2013/06/11 02:58

>シート名を所得する記述

Dim SheetName As String
SheetName = ActiveSheet.Name


>マクロ実行画面のシートをアクティブにしたい。
Dim StartSheet As Object
Set StartSheet = ActiveSheet
.......
StartSheet.Activate