ich möchte mit meinem Makro in Excel 2016 alle geöffneten Arbeitsmappen auf eine Fenstergröße bringen. Leider bisher ohne Erfolg.
Das hier ist mein Code
Private Sub Fenster()
Dim wb As Workbook
For Each wb In Workbooks
With ActiveWindow
.WindowState = xlNormal
.Top = 50
.Left = 3000
.Height = 600
.Width = 600
End With
Application.Wait (Now + TimeValue("00:00:05"))
Next wb