Control application window size based on resolution and dispaly specified rows and columns

I posted this on the 14th and did not get any replies. After much searching on the internet, I found a solution that works really well and does not required the code to find the screen resolution of the system it is running on. Part of the solution can be found at the following link: " https://excelribbon.tips.net/T010091..._and_Size.html " I placed the following two routines into my code:

Please Login or Register  to view this content.

Although the link suggest placing the following code in the Workbook_Open sub-routine, it did not work, so I placed it in

Please Login or Register  to view this content.

I then placed in another module the following code:

Please Login or Register  to view this content.

then a call to it in:

Please Login or Register  to view this content.

The overall effect is that if the user adjust the size of the screen manually or with the minimize of maximum window settings, the range I selected automatically adjust within the new window size. Once they have made their adjustments and close the program while saving, the settings are Saved with the Workbook_BeforeClose Sub. When they reopen it will return to that size with the Workbook_WindowActivate sub.

it works really well and I will no doubt use this in all my other programming.

I almost forgot to mention for each worksheet you want to resize:
"
Private Sub Worksheet_Activate()
AdjustScreen
End Sub"