Excel: Macro to Select A1 and Zoom 100% for all Worksheets

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.

Quick Access Toolbar

About Me

Hirota Yano / Programmer
Born in 1988, based in Japan

Languages

日本語 / English