ExcelのマナーとしてA1を選択した状態で提出してほしい

全シート巡回してセルポインタをA1に指定して、

最後に1シート目を表示するVB

Sub A1()
For s = 1 To Worksheets.Count
Sheets(s).Select
Range("A1").Select
Next s
Sheets(1).Select
End Sub

シートが多い時に見てほしいシートの見てほしい箇所が選択されている状態だと非常にありがたいんだけど、シートは多いはシートの関係ない下の方が選択されてたり右の方が選択されてたり、、

せめてお客様にExcelの資料を提出する時くらいは気をつけた方がいいね、。

てゆか、デフォルトでこういう機能ないのかね。

※動作しなかったらごめんなさいね、。