Cannot seem to activate original window on open

[bradyboyy88]

My code below strips away a lot of the excel features that make it excel. The thing is i developed this as a class and only to make the changes to the initial window/ sheet. So I wanted these effects to apply to every sheet so I added a for loop and declared an intitial window variable to make sure i go back to the initial window after applying all effects. However it keeps drawing a object variable or with block variable not set.

Any ideas?

Public Sub GuiUpgrade()
    
    Dim Sheet As Worksheet
    Dim InitialWindow As Window
    
    'Excel UI Removal
    Application.ScreenUpdating = False
    
    With ThisWorkbook.Application
        .Cursor = xlNorthwestArrow
        .ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"",False)"
        .DisplayFormulaBar = False
        .DisplayStatusBar = False
    End With
    
    InitialWindow = ThisWorkbook.Application.ActiveWindow
    
    For Each Sheet In ThisWorkbook.Sheets
    
        Sheet.Activate
        
        With ThisWorkbook.Application.ActiveWindow
            .DisplayWorkbookTabs = False
            .DisplayHorizontalScrollBar = False
            .DisplayVerticalScrollBar = True
            .DisplayGridlines = False
            .DisplayHeadings = False
        End With
    
    Next Sheet
    
    InitialWindow.Activate
    
    Application.ScreenUpdating = True


    
    'Update Caption on Window Frame
    With ThisWorkbook.Application
        .ActiveWindow.Caption = ""
        .Application.Caption = "Application Name"
    End With
    
    
End Sub

 

[MUKESHY12390]

I think you are missing this...

Set InitialWindow = ThisWorkbook.Application.ActiveWindow

 

[bradyboyy88]

I think you are missing this...

Set InitialWindow = ThisWorkbook.Application.ActiveWindow

That fixed the error. First why did I need to use set? Secondly, the code works but unfortunately does not switch back to the original window.

 

[bradyboyy88]

Instead it just keeps up that last sheet it just did those changes too.

 

[MUKESHY12390]

what do you mean by "original window" , are referring to sheet?

 

[bradyboyy88]

what do you mean by "original window" , are referring to sheet?

Yea, I though capturing the initial window as a variable and then activating it again at the very end would take me back to the original sheet. I find the window object very confusing since in my understanding the sheet is related to the window. For instance, I cannot disable gridlines without first switching to the sheet. I am following some logic form a thread on stackexchange and at the end it sets the initial window active at the very end similar to what I am doing. Whats the point of that then if its not going to switch back to the original sheet.