Automatic window sizing

[wmtsub]

Is there any way to stop excel from opening subsequent workbooks at the size and or location of the last opened workbook?
I wrote a script to open a specific set of data at a specific location and size. I keep this open all day but every time I open anew workbook it snaps to that size/ location. Very annoying.

 

[Yongle]

Where workbookA is the workbook which is opened in the specific location and with a smaller size ...

Untested, but you could try

- create a sub in workbookA to re-set the location and size to normal
- call it from "workbook deactivate" ( in workbookA )
- also call the same code from "workbook before close" ( in workbookA )

You may also need a sub in workbookA to set it to its peculiar settings and call that sub from "workbook activate"

 

[wmtsub]

So here is the code I have so far. If i open the wb "WAL Lat Lon 5-1.xlsm" by itself or with other prior existing open wb's this will display properly in the location at the size i want.
But if i open another wb it not open to the new location size. Any Idea why?

[LEFT][COLOR=#222222][FONT=Verdana]Private Sub Workbook_Open()[/FONT][/COLOR]
[COLOR=#222222][FONT=Verdana]twn = ThisWorkbook.Name[/FONT][/COLOR]
[COLOR=#222222][FONT=Verdana]If twn <> "WAL Lat Lon  5-1.xlsm" Then GoTo xit[/FONT][/COLOR]
[COLOR=#222222][FONT=Verdana]'Minimial View[/FONT][/COLOR]
[COLOR=#222222][FONT=Verdana]    Application.ThisWorkbook.Saved = True[/FONT][/COLOR]
[COLOR=#222222][FONT=Verdana]    Application.DisplayFormulaBar = False[/FONT][/COLOR]
[COLOR=#222222][FONT=Verdana]    ActiveWindow.DisplayWorkbookTabs = False[/FONT][/COLOR]
[COLOR=#222222][FONT=Verdana]    ActiveWindow.DisplayHeadings = False[/FONT][/COLOR]
[COLOR=#222222][FONT=Verdana]    Application.DisplayStatusBar = False[/FONT][/COLOR]
[COLOR=#222222][FONT=Verdana]    ActiveWindow.DisplayHorizontalScrollBar = False[/FONT][/COLOR]
[COLOR=#222222][FONT=Verdana]    ActiveWindow.DisplayVerticalScrollBar = False[/FONT][/COLOR]
[COLOR=#222222][FONT=Verdana]    Application.Top = 4[/FONT][/COLOR]
[COLOR=#222222][FONT=Verdana]    Application.Left = -1437[/FONT][/COLOR]
[COLOR=#222222][FONT=Verdana]    Application.Width = 883[/FONT][/COLOR]
[COLOR=#222222][FONT=Verdana]    Application.Height = 63[/FONT][/COLOR]
[COLOR=#222222][FONT=Verdana]    GoTo ends[/FONT][/COLOR]
[COLOR=#222222][FONT=Verdana]xit:[/FONT][/COLOR]
[COLOR=#222222][FONT=Verdana] ' Regular View[/FONT][/COLOR]
[COLOR=#222222][FONT=Verdana]    Application.ThisWorkbook.Saved = True[/FONT][/COLOR]
[COLOR=#222222][FONT=Verdana]    Application.DisplayFormulaBar = True[/FONT][/COLOR]
[COLOR=#222222][FONT=Verdana]    ActiveWindow.DisplayWorkbookTabs = True[/FONT][/COLOR]
[COLOR=#222222][FONT=Verdana]    ActiveWindow.DisplayHeadings = True[/FONT][/COLOR]
[COLOR=#222222][FONT=Verdana]    Application.DisplayStatusBar = True[/FONT][/COLOR]
[COLOR=#222222][FONT=Verdana]    ActiveWindow.DisplayHorizontalScrollBar = True[/FONT][/COLOR]
[COLOR=#222222][FONT=Verdana]    ActiveWindow.DisplayVerticalScrollBar = True[/FONT][/COLOR]
[COLOR=#222222][FONT=Verdana]    Application.Top = 70[/FONT][/COLOR]
[COLOR=#222222][FONT=Verdana]    Application.Width = 800[/FONT][/COLOR]
[COLOR=#222222][FONT=Verdana]    Application.Height = 500[/FONT][/COLOR]
[COLOR=#222222][FONT=Verdana]ends:[/FONT][/COLOR]
[COLOR=#222222][FONT=Verdana]End Sub[/FONT][/COLOR][/LEFT]