VBA 便利コードサンプル

VBAで保存ショートボタンが押下された時に、全てのシートのカーソルをA1セルに移動させた後、アクティブシートに戻るコード

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
    Dim currentSheet As Worksheet
    
    '現在のアクティブシートを保存
    Set currentSheet = ActiveSheet
    
    'フォント種別を変更する
    ChangeFont
    
    'カーソルを移動する
    MoveCursor
    
    'アクティブシートに戻す
    currentSheet.Activate
End Sub
'フォント種別を変更する
Sub ChangeFont()
    Dim ws As Worksheet
    Dim cell As Range
    
    For Each ws In ActiveWorkbook.Worksheets
        For Each cell In ws.UsedRange.Cells
            cell.Font.Name = "MS Pゴシック"
        Next cell
    Next ws
End Sub
'カーソルを移動する
Sub MoveCursor()
    Dim ws As Worksheet
    
    For Each ws In ActiveWorkbook.Worksheets
        ws.Activate
        ws.Range("A1").Select
    Next ws
End Sub