Control scrollbars positions and sheet view

Sub TopLeftSelect()
    Dim ws As Worksheet
    For Each ws In ActiveWorkbook.Worksheets
        ws.Activate
        ActiveWindow.ScrollColumn = 1
        ActiveWindow.ScrollRow = 1
        ws.Range("A1").Select
        ''If ActiveWindow.View is xlPageLayoutView
        ActiveWindow.View = xlNormalView
    Next
End Sub