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.
- Set the selected cell of all sheets to A1.
- Set the zoom of all sheets to 100%.
- Activate the first sheet.
- 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.