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

質問

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

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

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

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

回答No.2

keithin · ベストアンサー

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セルに記述し、それを利用して、シートを選択する方法があったんですね。

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

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

回答No.1

noname#208392

>シート名を所得する記述
Dim SheetName As String
SheetName = ActiveSheet.Name

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