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

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

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

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

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

質問者からの補足コメント

• ＞下記は、『「戻る」というマクロを２枚目のシート以降すべてに付ける』というマクロです。
  
  間違えました。
  下記は、『「戻る」というボタンを２枚目のシート以降すべてに付ける』というマクロです。
  
  
  すみませんでした。よろしくお願いいたします。

    補足日時：2015/05/29 17:27

No.2 ベストアンサー 回答者： kito2015 回答日時： 2015/05/29 19:30

一例です。

Sub 戻るボタン設置()
Dim Sht As Worksheet, i As Long

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 = "戻る"

'マクロ登録
.Buttons(1).OnAction = "シート移動"

Next i
End With
End If
Next Sht
Sheets(1).Select
End Sub

Sub シート移動()
' If ActiveSheet.Name = Worksheets(1).Name Then Exit Sub
Worksheets(1).Select
End Sub

この回答へのお礼

ありがとうございました！
無事、希望の作業ができました！
本当に感謝しております。

お礼日時：2015/06/01 10:23

No.1 回答者： みいい 回答日時： 2015/05/29 18:22

マクロの記録で、1個戻るボタンを作って、後はそのボタンをコピーして各シートにペーストして下さい。

しいて、コードを書けば、

Sub. Macro1()
Sheets("Sheet1").Select
End Sub

この回答へのお礼

ご回答ありがとうございました。
また、ご教授いただけたらと思います。

お礼日時：2015/06/01 10:24