Excel VBA 自动选择所有表的A1单元格

将Excel内部所有表的格子选择在A1单元格，增加美观度

Sub SetSelectA1()
    Dim wss As Worksheet
    
    For Each wss In ThisWorkbook.Worksheets
        wss.Activate
        wss.Cells(1, 1).Select
    Next wss
    '最初のシートを選択する（最初に戻す）
    Worksheets(1).Activate
End Sub