[tr6scott]

Thanks we like excel, as I work in it everyday. When I don't have something else to learn, I will take a look. Thanks for sharing.

I have it working, this is what you need to do. I don't think CD will let me post the new workbook to this this thread. So this is what you need to do if you want to...

In the teams setup sheet, in the row under the "clock out credit" in R9C1 enter the text, "Zoom Level on Open" and in R9C2 enter the value you want, "80" for us.

Open up the VBA Macros (Ribbon bar, view, macros) select any macro click edit. When VBA opens up, on left pane, click "ThisWorkbook" then on the code window select "Open" from the dropdown list. [Another way is to use find, and search the whole project for "zoom"]

At the bottom of the window you will see:

Private Sub Workbook_Open()
    Sheet1.Activate
    ActiveWindow.Zoom = 119
    ActiveWindow.DisplayGridlines = False
    ActiveWindow.DisplayHeadings = False
    Application.DisplayFormulaBar = False
    'Application.DisplayFullScreen = True
End Sub

change the zoom value to:

Private Sub Workbook_Open()
    Sheet1.Activate
    ActiveWindow.Zoom = Sheet8.Cells(9, 2)
    ActiveWindow.DisplayGridlines = False
    ActiveWindow.DisplayHeadings = False
    Application.DisplayFormulaBar = False
    'Application.DisplayFullScreen = True
End Sub

Save and close, when you open the sheet next time it will zoom to the value stored in team setup sheet.