全ワークシートのアクティブセルをホームに移動するマクロ

Excelファイルを他人に渡すときなどに、アクティブセル(カーソル)がホーム(A1セル)にあると整った印象を与えます。
しかしシートがたくさんあると面倒です。
そこで考えたのが、編集中のExcelファイルのすべてのワークシートのアクティブセルをホームに移動するマクロです。

Sub 全ワークシートのアクティブセルをホームに移動()
Dim myWS As Worksheet
For Each myWS In Worksheets
myWS.Select
Range("A1").Select
Next
End Sub