VBA シートの選択と追加

質問

ExcelのVBAで以下の処理をするにはどうすれば良いですか。
①現在シートが７枚あります。
②そのうち１枚目から５枚目を選択しています。
③先頭（最後でも可）に１シート追加します。
④最初に選択したシート（２枚目から６枚目）に戻って処理をします。
なお、選択するシート（この場合は１枚目から５枚目）は毎回変わります。

回答No.2

m3_maki

こんな感じですかね。

Sub Sample()
Dim shs As Object
Set shs = ActiveWindow.SelectedSheets
Worksheets.Add before:=Sheets(1)
shs.Select
End Sub

回答No.1

SI299792

選択しているシートを変数に入れればいいです。
具体的にどんな処理をするのか書いてないので、シート名をイミディエイトに表示します。
Option Explicit
'
Sub Macro1()
　　Dim Sheet As Object
'
　　Set Sheet = ActiveWindow.SelectedSheets
　　Sheets(1).Select
　　Sheets.Add
'
　　For Each Sheet In Sheet
　　　　Debug.Print Sheet.Name
　　Next Sheet
End Sub