VBA to hide all but one sheet on open

[TonemanABC]

Very new to VBA so excuse my ignorance. Trying to design a simple spreadsheet using forms to enter data on separate spreadsheets. I only want the 'Menu' spreadsheet to display when opening the workbook. I also have code linked to the buttons on my menu spreadsheet to open the pages.

I am using the code

Private Sub Workbook_Open()

Dim b As Worksheet

For Each b In Worksheets
    If b.Name <> "Menu" Then b.Visible = False
Next b

End Sub

However whilst this works fine - it seems to be set to a loop? And none of my other buttons seem to be working.

Is there better code to do this?

 

[Cubist]

Try on a copy.

Private Sub Workbook_Open()
    Dim ws As Worksheet
    Application.ScreenUpdating = False

    ' Hide all sheets except the "Menu" sheet
    For Each ws In ThisWorkbook.Worksheets
        If ws.Name <> "Menu" Then
            ws.Visible = xlSheetHidden ' or xlSheetVeryHidden if you want to completely hide the sheets
        End If
    Next ws

    Application.ScreenUpdating = True
End Sub