Open files with window maximized?

[TheWennerWoman]

Hello,

Is it possible to tweak this code (that works perfectly) to ensure that when each file is opened that it's maximized?

Sub OpenAllFiles()

    Dim filpath As String
    Dim fso As Scripting.FileSystemObject
    Dim fil As Scripting.File
    Dim fldr As Scripting.Folder
    Dim a As Long
    a = 0
    filpath = "C:\Users\Noddy\OneDrive - Excalibur Ltd\Documents\Daily\"
    Set fso = New Scripting.FileSystemObject
    Set fldr = fso.GetFolder(filpath)
Application.DisplayAlerts = False

On Error Resume Next
For Each fil In fldr.Files
    If fil.Size >= 5000 And fil.Size < 50000 Then
    With Application.Workbooks.Open(fil.Path)
        .RefreshAll
'        .Close False
    End With
    a = a + 1
    End If
Next fil
ThisWorkbook.Worksheets("Sheet1").Range("F3").Value = Now()
ThisWorkbook.Worksheets("Sheet1").Range("G3").Value = a
End Sub

Thank you for reading as always.

 

[Engberg]

Try these two lines after opening your file:

    Application.WindowState = xlMaximized 'maximize Excel
    ActiveWindow.WindowState = xlMaximized 'maximize the workbook in Excel

 

[TheWennerWoman]

Thank you for that, works a treat.