reduce part code and simple it.

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