reduce part code and simple it.

[ninhmoon]

Hi All!
I have a part code bellow:

Sub annhieusheetS()
Sheets("Home").Visible = xlVeryHidden
Sheets("Notecong (2)").Visible = xlVeryHidden
Sheets("5 ngày+6thang ").Visible = xlVeryHidden
Sheets("Payroll(G1)").Visible = xlVeryHidden
'Sheets("Group3").Visible = xlVeryHidden
Sheets("Company payment").Visible = xlVeryHidden
Sheets("Payroll(G3)").Visible = xlVeryHidden
Sheets("04.2015").Visible = xlVeryHidden
'Sheets("Diemchuyen").Visible = xlVeryHidden
'Sheets("OVER1").Visible = xlVeryHidden
Sheets("PL(G1) (2)").Visible = xlVeryHidden
Sheets("PL(G2) (2)").Visible = xlVeryHidden
Sheets("PL(G3) (2)").Visible = xlVeryHidden
'Sheets("an ca tháng ").Visible = xlVeryHidden
'Sheets("OVER2").Visible = xlVeryHidden
'Sheets("OVER3").Visible = xlVeryHidden
Sheets("Employ payment").Visible = xlVeryHidden
'Sheets("Group1").Visible = xlVeryHidden
'Sheets("Group2").Visible = xlVeryHidden
Sheets("Tru tien com trua").Visible = xlVeryHidden
Sheets("TOTAL -April-2015").Visible = xlVeryHidden
Sheets("Bang ke Tien").Visible = xlVeryHidden
Sheets("slr man-In").Visible = xlVeryHidden



End Sub
Sub hiennhieusheetS()
Sheets("Home").Visible = True
Sheets("Notecong (2)").Visible = True
Sheets("5 ngày+6thang ").Visible = True
Sheets("Payroll(G1)").Visible = True
Sheets("Group3").Visible = True
Sheets("Company payment").Visible = True
Sheets("Payroll(G3)").Visible = True
Sheets("04.2015").Visible = True
Sheets("Diemchuyen").Visible = True
Sheets("OVER1").Visible = True
Sheets("PL(G1) (2)").Visible = True
Sheets("PL(G2) (2)").Visible = True
Sheets("PL(G3) (2)").Visible = True
'Sheets("an ca tháng ").Visible = xlVeryHidden
Sheets("OVER2").Visible = True
Sheets("OVER3").Visible = True
Sheets("Employ payment").Visible = True
Sheets("Group1").Visible = True
Sheets("Group2").Visible = True
Sheets("Tru tien com trua").Visible = True
Sheets("TOTAL -April-2015").Visible = True
Sheets("Bang ke Tien").Visible = True
Sheets("slr man-In").Visible = True

End Sub
Please Help me!

How to write short code to easy to see and simple understand it.
And I have question:
When I delete a sheet in the file so What Do I write for the code update the sheets I want to hide or unhide it.

[protonLeah]

Option Explicit
Sub annhieusheetS()
    Dim MySheets As Variant
    Dim Sht As Variant
    
    MySheets = Array("Home", "Notecong (2)", "5 ngày+6thang ", "Payroll(G1)", "Company payment", _
                    "Payroll(G3)", "04.2015", "PL(G1) (2)", "PL(G2) (2)", "PL(G3) (2)", _
                    "Employ payment", "Tru tien com trua", "TOTAL -April-2015", _
                    "Bang ke Tien", "slr man-In")
    
    For Each Sht In MySheets
        Sht.Visible = xlVeryHidden
    Next Sht
End Sub

[ninhmoon]

Option Explicit
Sub annhieusheetS()
    Dim MySheets As Variant
    Dim Sht As Variant
    
    MySheets = Array("Home", "Notecong (2)", "5 ngày+6thang ", "Payroll(G1)", "Company payment", _
                    "Payroll(G3)", "04.2015", "PL(G1) (2)", "PL(G2) (2)", "PL(G3) (2)", _
                    "Employ payment", "Tru tien com trua", "TOTAL -April-2015", _
                    "Bang ke Tien", "slr man-In")
    
    For Each Sht In MySheets
        Sht.Visible = xlVeryHidden
    Next Sht
End Sub

I don't know what is happen with your code.
It appear a error bellow:
http://i.imgur.com/5U8iztd.png

[SamT]

If you wish to exempt one or two sheets

Sub SamT_HideSheets()
Dim Sht As Worksheet

For Each Sht in Sheets
   If Not Sht.Name = "sheet1" Or Sht.Name = "sheet2" Then  Sht.Visible = xlVeryHidden
Next Sht
End Sub

[ninhmoon]

If you wish to exempt one or two sheets

Sub SamT_HideSheets()
Dim Sht As Worksheet

For Each Sht in Sheets
   If Not Sht.Name = "sheet1" Or Sht.Name = "sheet2" Then  Sht.Visible = xlVeryHidden
Next Sht
End Sub

thanks your code.
So when I change your code to hidden the code:

Sub SamT_unShowSheets()
Dim Sht As Worksheet

For Each Sht In Sheets
   
   If Not Sht.Name = "sheet1" Or Sht.Name = "sheet2" Then Sht.Visible = xlHidden
Next Sht
End Sub

over. I use the button F8 to play the line code.
So then sht.visible = xlhidden
it fill yellow, it break code.
Please explain for me what is happen with the code bellow.
Thanks

[SamT]

There is no xlHidden
There is only

• True
• False
• xlVisible
• xlVeryHidden

You can try

• xlSheetHidden
• xlSheetVisible
• xlsheetVeryHidden

But I never have used those three.

[ninhmoon]

There is no xlHidden
There is only

• True
• False
• xlVisible
• xlVeryHidden

You can try

• xlSheetHidden
• xlSheetVisible
• xlsheetVeryHidden

But I never have used those three.

I try to use all methods.
But it break code with error
http://i.imgur.com/c5jWFad.png
So I don't know why.

[protonLeah]

Option Explicit
Sub annhieusheetS()
Dim MySheets As Variant
Dim Sht As Variant

MySheets = Array("Home", "Notecong (2)", "5 ngày+6thang ", "Payroll(G1)", "Company payment", _
"Payroll(G3)", "04.2015", "PL(G1) (2)", "PL(G2) (2)", "PL(G3) (2)", _
"Employ payment", "Tru tien com trua", "TOTAL -April-2015", _
"Bang ke Tien", "slr man-In")

For Each Sht In MySheets
sheets(Sht).Visible = xlVeryHidden
Next Sht
End Sub

[ninhmoon]

Option Explicit
Sub annhieusheetS()
Dim MySheets As Variant
Dim Sht As Variant

MySheets = Array("Home", "Notecong (2)", "5 ngày+6thang ", "Payroll(G1)", "Company payment", _
"Payroll(G3)", "04.2015", "PL(G1) (2)", "PL(G2) (2)", "PL(G3) (2)", _
"Employ payment", "Tru tien com trua", "TOTAL -April-2015", _
"Bang ke Tien", "slr man-In")

For Each Sht In MySheets
sheets(Sht).Visible = xlVeryHidden
Next Sht
End Sub

THanks I understood. what's happen with my file. because some name sheet has not in the file.
Thanks!
The second request:
I want to ask:
I want to hidden sheets, but I do not the name sheets.
So How I can hidden the sheets in the file immediately?

[SamT]

Sub Test()
Dim Sht As Worksheet

For Each Sht In Sheets
'Must leave one sheet visible
If Sht.Name <> "Home" Then Sht.Visible = xlSheetVeryHidden
Next

annhieusheetS 'Show named sheets
End Sub

[6StringJazzer]

ninhmoon, please take the time to review our rules. There aren't many, and they are all important.

Your post does not comply with Rule 3 of our Forum RULES. Use code tags around code.

Posting code between [CODE] [/CODE] tags makes your code much easier to read and copy for testing, it also maintains VBA formatting.

Highlight your code and click the # icon at the top of your post window. More information about these and other tags can be found here



(This thread should receive no further responses until this moderation request is fulfilled, as per Forum Rule 7)

[SamT]

I have heard of rule nazis, but you are freaking me out. There's been 10 responses here already.

But, it reminds me again why I only have 86 posts here in a decade.

You tell simon and the guys hi for me why don'cha. 'cuz I am outa here again.

If you ever visit VBA Express, gimmee a holler now.

SamT