【エクセルVBAレシピ】全てのシートでA1セルを選択状態にして、最初のシートを選択する。

Sub selectCellOfAllSheets(Optional wb As Workbook, Optional cellRange As String = "A1")
    If wb Is Nothing Then Set wb = ActiveWorkbook
    For Each ws In wb.Sheets
        ws.Activate
        ws.Range(cellRange).Select
    Next
    wb.Sheets(1).Activate
End Sub

wb	編集するワークブックのオブジェクト（省略したらアクティブなウィンドウのブック）
cellRange	選択するセル

関連：
【エクセルVBAレシピ】全てのシートの拡大率を100にして最初のシートを選択する - ひとふたブログ

参照：
Range オブジェクト (Excel) | Microsoft Docs
名前付き引数と省略可能な引数について (VBA) | Microsoft Docs
Application.ActiveWorkbook プロパティ (Excel) | Microsoft Docs
Worksheet.Activate メソッド (Excel) | Microsoft Docs