Hide Graph Worksheet

[manmoncang]

Dear Intelligent people.

I use below code to hide all my worksheet but my graph sheets cannot be hide. I think maybe because the graph sheets is different properties compare normal sheet. Anybody know how to hide all graph sheet using VBA. Tq for advance.

Sub Button1437_Click()
Dim sh As Worksheet, arr

arr = Array("MAIN") 'Change Name of Sheet you don't want hide.

For Each sh In Worksheets

If IsError(Application.Match(sh.Name, arr, 0)) Then

sh.Visible = xlSheetHidden

End If

Next
End Sub

 

[manmoncang]

i solve by myself. tq