Awesome. I've automated a bunch of trivial stuff with my Personal Macro Workbook but a fix to this LOOOOOOONG-TERM annoyance was beyond my skill-set. Thankfully copy/pasting is well within my skillset :) Love this.

This is fantastic. Freeze panes disappearing was such massive annoyance, and the few extra seconds to compute is 100% worth it. THANK YOU!

Thanks for the great video. I like the "bug" at the window level settings. Sometimes I like to set the gridlines on the second window to help review the data but want to keep the end user experience on the original window.

Both videos are great John! Love the macro features. Everyone I've introduced the New Window feature to always find it useful for work tasks. Awesome video.

Hi Jon.. awesome.. when I watch the first video, I was thinking.. hey.. should automate this with VBA. You've done it for us. Thanks for that and the great tips and insights on the use of the New Window feature.. now enhanced to work more efficiently with your macro addition. Thumbs up!

You're the man

Top tip John, I always had issues with this problem. Will be implementing the macro and sharing with others. Thanks again!

This video saves my day! Thank you!

As usual, Jon - nice work! Thanks.

Thanks John. Very Very Helpful :)

Awesome Thanks !

The Macro might work in English Excel versions, but not in mine. Because the window names are different. e.g. MyWorkbook 1:1 MyWorkbook 1:2 Så one has to change the Macro like this: Option Explicit Sub New_Window_Preserve_Settings() 'Create a new window and apply the grid line settings 'for each sheet. Dim ws As Worksheet Dim i As Long Dim iWinCnt As Long Dim bGrid As Boolean Dim bPanes As Boolean Dim bHeadings As Boolean Dim iSplitRow As Long Dim iSplitCol As Long Dim iActive As Long Application.ScreenUpdating = False 'Store the active sheet iActive = ActiveSheet.Index 'Create new window ActiveWindow.NewWindow iWinCnt = ActiveWorkbook.Windows.Count 'Loop through worksheets of original workbook 'and apply grid line settings to each sheet. For Each ws In ActiveWorkbook.Worksheets Windows(ActiveWorkbook.Name & ":1").Activate ws.Activate 'Store the properties bGrid = ActiveWindow.DisplayGridlines bHeadings = ActiveWindow.DisplayHeadings 'Get freeze panes bPanes = ActiveWindow.FreezePanes If bPanes Then iSplitRow = ActiveWindow.SplitRow iSplitCol = ActiveWindow.SplitColumn End If 'Activate the new window and sheet in loop Windows(ActiveWorkbook.Name & ":" & iWinCnt).Activate Worksheets(ws.Index).Activate 'Set properties With ActiveWindow .DisplayGridlines = bGrid .DisplayHeadings = bHeadings If bPanes Then .SplitRow = iSplitRow .SplitColumn = iSplitCol .FreezePanes = True End If End With Next ws 'Activate original active sheet for the new window Worksheets(iActive).Activate 'Activate the original active sheet for the original window Windows(ActiveWorkbook.Name & ":1").Activate Worksheets(iActive).Activate 'Split Screen View (optional) 'The following section can be commented out if you don't want split screen. 'Turn screen updating on for split screen Application.ScreenUpdating = True For i = iWinCnt To 1 Step -1 Windows(ActiveWorkbook.Name & ":" & i).Activate Next i 'Split view side-by-side vertical ActiveWorkbook.Windows.Arrange ArrangeStyle:=xlVertical 'Scroll to active tab in original window ActiveWindow.ScrollWorkbookTabs Position:=xlFirst ActiveWindow.ScrollWorkbookTabs Sheets:=iActive 'Scroll to active tab in new window Windows(ActiveWorkbook.Name & ":" & iWinCnt).Activate DoEvents ActiveWindow.ScrollWorkbookTabs Position:=xlFirst ActiveWindow.ScrollWorkbookTabs Sheets:=iActive End Sub Sub Close_Additional_Windows() 'Close additional windows and maximize original Dim i As Long If ActiveWorkbook.Windows.Count > 1 Then For i = ActiveWorkbook.Windows.Count To 2 Step -1 Windows(ActiveWorkbook.Name & ":" & i).Close Next i End If Windows(ActiveWorkbook.Name).WindowState = xlMaximized End Sub

This is awesome and working thanks to the comments. Is there something in this code I can change that would cause the new window to open a sheet two, rather than the sheet I am viewing?

As always, Jon, you have shared some cool things. I haven't noticed these "bugs" mentioned about the New Window feature because I don't use the feature that often. Other than making it easier to enter arguments into a formula that call up references from other workbook sheets, what is the purpose of using the New Window feature? I could see a use for it if we could make independent changes in the new windows.

Great video Jon! Link to the file seems to be missing though :)

In my company, we use Excel to work on a .xml file and we use freeze pane allot. When me or my colleagues are done, we save the file as a new version and all freeze panes are lost. Is there a way to save those freeze panes? In our case, the freeze is always on the exact same lines. The document has multiple tabs. Your help is much appreciated!

Great video! Maybe I missed it, but I accidentally saved version 2 and now when I open the file they both open. I know now what not to do, e.g. save the version 2, but how do I keep that from happening on this particular file?

Can't download the file. Link not available

Hi Jon, in my Excel 2016 I'm getting a Runtime error 9 (subscript out of range) here "Windows(ActiveWorkbook.Name & sSep & "1").Activate". This happens with all files I've tried. Any ideas what it could be?

Missing File is on his website: www.excelcampus.com/tips/new-window-gridlines-freeze-panes/