マクロ 戻るボタンを押したらシートの1枚目に戻る
各シートに「戻る」というボタンを作りましたが、
「ボタンを押したらシートの1枚目をアクティブにする」というマクロを付けたいです。
下記は、『「戻る」というマクロを2枚目のシート以降すべてに付ける』というマクロです。
このマクロの中に、各シートの「戻る」ボタンを押せば、シートの1枚目に戻るような
指示を入れたいです。
分かる方いましたら、お願いします。。。
※下記のマクロは以前ご回答いただいたマクロを引用したものです。
///////////////////////////////////
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