fixing error run time error 1004 to hide specific sheets

[abdelfattah]

hello
i have this code trying hide specific sheets but it gives me error run time error 1004 "method visible of object_ worksheet failed " in this line

sh.Visible = xlSheetVeryHidden

Private Sub CommandButton2_Click()
Application.Visible = True
Sheets("micro").Activate
Dim sh As Worksheet

For Each sh In Worksheets(Array("RAW", "Date", "MICC", "REPORT", "LABLE"))
    sh.Visible = xlSheetVeryHidden
Next sh
UserForm1.hide

End Sub

i truly appreciate if anybody help

 

[abdelfattah]

actually i don't understand what mean this

I think you need to change the 1st sheet name in the array

 

[Fluff]

In post#6 dmt32 had forgotten to change the name of the first sheet in the array from Raw to Micro.

 

[abdelfattah]

sorry about it i don't note that because i amended my code in post 4# not 6#