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.