マクロ 戻るボタンを押したらシートの１枚目に戻る

質問

各シートに「戻る」というボタンを作りましたが、
「ボタンを押したらシートの１枚目をアクティブにする」というマクロを付けたいです。
下記は、『「戻る」というマクロを２枚目のシート以降すべてに付ける』というマクロです。
このマクロの中に、各シートの「戻る」ボタンを押せば、シートの１枚目に戻るような
指示を入れたいです。
分かる方いましたら、お願いします。。。

※下記のマクロは以前ご回答いただいたマクロを引用したものです。

///////////////////////////////////

Sub 戻るボタン設置()

Dim Sht As Worksheet
For Each Sht In Worksheets
If Not Sht.Name = Worksheets(1).Name Then
With Sht
For i = 1 To 1
'幅140、高さ20のボタンを追加
.Buttons.Add(900 * i, 10, 140, 20).Text = "戻る"
Next i
End With
End If
Next Sht
Sheets(1).Select
End Sub

回答No.1

mt2008 · ベストアンサー

Sheet1をアクティブにするだけのマクロ「シート１選択」を作り、ボタンを押した時のアクションに設定しました。

Sub 戻るボタン設置()
　　Dim Sht As Worksheet
　　For Each Sht In Worksheets
　　　　If Not Sht.Name = Worksheets(1).Name Then
　　　　　　With Sht.Buttons.Add(900, 10, 140, 20)
　　　　　　　　.Text = "戻る"
　　　　　　　　.OnAction = "シート１選択"
　　　　　　End With
　　　　End If
　　Next Sht
　　Sheets(1).Select
End Sub
Sub シート1選択()
　　Sheets(1).Select
End Sub

お礼

ご回答ありがとうございます。
作業ができましたので、お礼申し上げます。