Domme lange code

[Revdutchie]

Ik heb een macro gemaakt om alle tab bladen in fullscreen te laten zien en zonder headings maar ik selecteer in de code het tabblad 1 voor 1. Het lijkt me dat dat makkelijker moet kunnen ?

Nu is me code

Sub allesgroot()

Application.ScreenUpdating = False

ActiveWindow.DisplayHeadings = False
Sheets("Tactics").Select
ActiveWindow.DisplayHeadings = False
Sheets("Team").Select
ActiveWindow.DisplayHeadings = False
Sheets("Captain").Select
ActiveWindow.DisplayHeadings = False
Sheets("Single").Select
Application.DisplayFullScreen = True

Application.ScreenUpdating = True


End Sub

Iemand een tip ?

Groeten,
Jacques

 

[Warme bakkertje]

Sub allesgroot()
Application.ScreenUpdating = False
For Each sh In ThisWorkbook.Sheets
    ActiveWindow.DisplayHeadings = False
Next
With Application
    .DisplayFullScreen = True
    .ScreenUpdating = True
End With
End Sub

 

[Revdutchie]

Sub allesgroot()
Application.ScreenUpdating = False
For Each sh In ThisWorkbook.Sheets
    ActiveWindow.DisplayHeadings = False
Next
With Application
    .DisplayFullScreen = True
    .ScreenUpdating = True
End With
End Sub

SUBLIEM Rudi :thumb::thumb:

Werk precies zoals ik wil !

aanpassing

ik heb

Application.ScreenUpdating = False
    .ScreenUpdating = True

verwijderd want die hebben volgens mij geen nut meer, maar hoor het graag als ik het fout heb.