Range all sheets to cell "A1" before closing file

Friends,

Before closing the file, I want Excel to automatically organize sheets, putting the cursor in cell "A1" of each of them and activating the first sheet, then I want it to save the workbook.

To do this, I use the code below...

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    
    Sheets("Sheet5").Select
    Range("A1").Select

    Sheets("Sheet4").Select
    Range("A1").Select

    Sheets("Sheet3").Select
    Range("A1").Select

    Sheets("Sheet2").Select
    Range("A1").Select

    Sheets("Sheet1").Select
    Range("A1").Select

    ThisWorkbook.Save

End Sub

Is there any other "easier" way to do this?

Thanks for your attention, guys.

Hugs.

Bruno

Bruno,

This should work for you:

Dim x As Long
For x = ThisWorkbook.Sheets.Count To 1 Step -1
    Sheets(x).Activate
    Cells(1, 1).Select
Next x
ThisWorkbook.Save

Hope this helps,
theDude