Sub AlleBladenA1()
'Initialiseer
  Dim Blad As Worksheet, BackupSheet As Worksheet
  
  With Application                               'De excel applicatie
    .ScreenUpdating = False                      'Update scherm uitzetten
    With .ThisWorkbook                           'Pak het workbook waar deze code in staat
      Set BackupSheet = .ActiveSheet             'Pak de huidige sheet om deze later weer als startsheet in te stellen
      For Each Blad In .Worksheets               'Pak alle sheets
        If Not Blad.Visible = xlVeryHidden Then  'Is de sheet niet verborgen
          Blad.Activate                          'Activeer één sheet
          Blad.Cells(1, "A").Activate            'Activeer Cel A1
        End If
      Next
    End With
    BackupSheet.Activate                         'Herstel de sheet waarmee je begon
    .ScreenUpdating = True                       'Schermupdate weer aanzetten
  End With
End Sub

Option Explicit  'dwingt initialiseren van variabelen af.

Sub AlleBladenA1()
'ken een sneltoets aan deze macro toe bijvoorbeeld
'CTRL+Shift+A of laat hem lopen vanuit een auto_open macro.

'deze macro zorgt er in een sneltoets voor dat van alle zichtbare bladen en alle deelvensters
'de uiterste linker bovencel zichtbaar wordt. Netjes opgeruimd dus en gaat verder met
'het blad van waaruit de macro gestart is.

'initialiseer
  Dim GeselecteerdBlad As Variant, blad As Variant
  Dim Teller As Integer
  With Application
    .ScreenUpdating = False  'geeft een zandloper i.p.v. flitsen
    GeselecteerdBlad = .ActiveSheet.Name  'startblad
    For Each blad In .Worksheets
      With blad
        If Not .Visible = xlVeryHidden Then  'opdracht kan niet op xlVeryHidden bladen.
          .Select
          For Teller = 1 To ActiveWindow.Panes.Count  'telt hoeveel vensters er zijn op het blad
            With ActiveWindow.Panes(Teller)
              .ScrollColumn = 1  'scrollt naar boven
              .ScrollRow = 1  'scrollt naar boven
            End With
          Next
          ActiveSheet.Range("A1").Select  'selecteert de linkerbovencel
        End If
      End With
    Next
    Sheets(GeselecteerdBlad).Select  'selecteert het startblad
    .ScreenUpdating = False  'Update scherm weer aanzetten.
  End With
End Sub

Sub ShowHide()
'Initialiseer
  Dim Blad As Worksheet, BackupSheet As Worksheet
  
  With Application                               'De excel applicatie
    .ScreenUpdating = False                      'Update scherm uitzetten
    With .ThisWorkbook                           'Pak het workbook waar deze code in staat
      Set BackupSheet = .ActiveSheet             'Pak de huidige sheet om deze later weer als startsheet in te stellen
      For Each Blad In .Worksheets               'Pak alle sheets
         If Not Blad.Visible = xlVeryHidden Then  'Is de sheet niet verborgen
            Blad.Activate                          'Activeer één sheet
            Blad.Cells(1, "A").Activate            'Activeer Cel A1
         End If
       Next
     End With
     BackupSheet.Activate                         'Herstel de sheet waarmee je begon
     .ScreenUpdating = True                       'Schermupdate weer aanzetten
   End With
End Sub