Laufzeitfehler 1004, ActiveWindow.displayHeadings

ich möchte bei allen Worksheets u.a. die Headings ausblenden, erhalte aber sporadisch (nicht immer) bei folgender Funktion einen 1004-er Laufzeitfehler.

Hat jemand eine Idee?

For Each ws In Application.ActiveWorkbook.Worksheets
ws.Activate
With Application.ActiveWindow
.DisplayHeadings = true
.DisplayGridlines = true
.DisplayOutline = true
End With
Next ws

Vielen Dank und Gruesse aus Hamburg
Egon