Excel: Macro to save all sheets with A1 cell selection & zoom 100%

Dim sheet As Object
For Each sheet In ActiveWorkbook.Sheets
    sheet.Activate
    ActiveSheet.Range("A1").Select
    ActiveWindow.Zoom = 100
Next sheet
ActiveWorkbook.Sheets(1).Activate

If ActiveWorkbook.Path = "" Then
    Application.Dialogs(xlDialogSaveAs).Show
Else
    ActiveWorkbook.Save
End If

A hard worker who does four tasks.

1. Set the selected cell of all sheets to A1.
2. Set the zoom of all sheets to 100%.
3. Activate the first sheet.
4. Save the workbook.

It is convenient to use it as an add-in.

If you save the macro as an add-in (.xlam), you can use it in all workbooks. It is easy and recommended to add it to the Quick Access Toolbar. You can find the method by searching for “macro add-in”. maybe.