Help with VBA Unhide Code to show specific Worksheets.

Hi All

I have some VBA Code I used from another thread some time ago to Unhide all sheets in a Workbook that were hidden. It worked fantastic for what was needed then.

This is the Code I used:

Private Sub CommandButton2_Click()
Dim ws As Worksheet
 '
     For Each ws In ActiveWorkbook.Worksheets
        
        ws.Visible = xlSheetVisible

    Next ws

End Sub

However the problem is this Unhide's all sheets hidden in the Workbook but I now need it to keep Sheet MI hidden but unhide sheets LSN 1 to 4. Sheet MI is password protected with password Info.

Is anyone able to help with the Code so it Unhides all sheets except sheet MI.

I have attached a sample of what I need to use.

Thanks for any help in advance

Ortz

Thanks mikeTRON

That works beautifully, exactly what I needed.

What code would I need to hide them all again with a Command Button ? Sorry for an extra request but the code I have only closes the sheets when the Workbook is closed, is there something else that I could add to a Command Button while the workbook is open to hide the sheets ?