ExcelのシートでアクティブセルをA1にしておくのがマナーって話を聞いたので

セルはA1をアクティブにするのがマナーらしい

以前Twitterで流れてきた話（ぼくは気にしない派）

対策

↓をThisWorkBookのBeforeSaveに入れておけば保存するときに全部A1なる。

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
    Dim objSh As Worksheet
    Dim objShORG As Worksheet
    
    Set objShORG = ActiveSheet '最初に開いていたシート
    
    For Each objSh In ThisWorkbook.Worksheets
        objSh.Select
        Application.Goto Reference:=Range("A1"), Scroll:=True
    Next
    
    objShORG.Select '最初に開いていたシートを表示する
End Sub