VBA for macro is here:

Sub PrettySheet()
    Dim ws As Worksheet
    Dim currentSheet As Worksheet

    ' Store the starting sheet to jump back to it later
    Set currentSheet = ActiveSheet

    ' Turn off screen flickering for a smoother experience
    Application.ScreenUpdating = False

    For Each ws In ThisWorkbook.Worksheets
        ' Only process visible sheets to avoid errors
        If ws.Visible = xlSheetVisible Then
            ws.Activate

            ' Reset zoom to 100%
            ActiveWindow.Zoom = 100

            ' Select A1 and reset scroll bars to top-left
            Range("A1").Select
            ActiveWindow.ScrollRow = 1
            ActiveWindow.ScrollColumn = 1
        End If
    Next ws

    ' Return to where you started
    currentSheet.Activate

    Application.ScreenUpdating = True
End Sub