a1.vas
Sub A1()
For Each s In ActiveWorkbook.Sheets
s.Activate
ActiveSheet.Range("A1").Select
ActiveWindow.ScrollColumn = 1
ActiveWindow.ScrollRow = 1
'ActiveWindow.Zoom = 100
Next s
Sheets(1).Activate
End Sub