全シートA1セルを選択する(ExcelVBA)

掲題の通り、全シートA1セルを選択するExcelVBAコード。
非表示シートがあるとアレですが、まぁ。
最後1シート目に移るのは好みです、はい。

Sub 全シートA1選択()

    Dim loopCount As Integer
    Dim sheetCount As Integer
    Dim tmpSheet As Worksheet
    
    sheetCount = ActiveWorkbook.Worksheets.Count
    
    For loopCount = 1 To sheetCount
        Set tmpSheet = ActiveWorkbook.Worksheets(loopCount)
        
        tmpSheet.Activate
        tmpSheet.Range("A1").Select
        
        Set tmpSheet = Nothing
    Next
    
    Set tmpSheet = ActiveWorkbook.Worksheets(1)
    tmpSheet.Activate
    Set tmpSheet = Nothing

End Sub