Ooppps....forgot to make them "Visiable" for u...
Private Sub CommandButton3_Click()
Unload Me
Application.ScreenUpdating = False
For Each Worksheet In Worksheets
Worksheet.Visible = True
Next
Application.ScreenUpdating = True
End Sub
....and that's it...[peace]
Try doing this- First name one of your sheets (one sheet that must contain your workbook) as "Control" and then:
Private Sub Workbook_Open()
Application.ScreenUpdating = False
On Error Resume Next
For Each Sheet In ThisWorkbook.Sheets
If Sheet.Name <> "Control" Then...
This site uses cookies to help personalise content, tailor your experience and to keep you logged in if you register.
By continuing to use this site, you are consenting to our use of cookies.