xlSheetVeryHidden Not Working At all

I've had another look and I made a mistake. The code I provided will only work if the "Services" sheet is not hidden when the workbook opens. Attached is your updated file. I've changed that code to...

Private Sub Workbook_Open()

    Sheets("Main Office").Visible = True
    Sheets("Main Office").Activate
    Worksheets("SERVICES").Visible = xlVeryHidden
    
End Sub

When the workbook opens, this code will make the main office sheet visible if it was saved as hidden and then activate the main office sheet and make the service sheet veryhidden even if the services sheet isn't visible.
As for the code on your sheets, they look ok to me, although I'm not quite sure what the Me.Visible = False is for.
Also, and i'm not sure if this matters, but when the user clicks one of the buttons to active the other sheet, the sheet they are on will not be "very hidden".
Buddy8-xlsheetveryhidden-not-working-at-all-sample.xlsm