Hide selected sheets only

[RAJESH1960]

Hello guys,
I have 6 sheets in the workbook. I want to hide sheet "Data" and sheet "Steps". The other 3 sheets are working sheets say X, Y and Z sheets. With the help of a code I want to hide X, Y and Z sheets only at the end of the code. How do I edit this code not to hide the sheet "Data" and sheet "Steps"? With this code I am able to hide one sheet only. The X sheet gets hidden when the code ends.

Option Explicit

Sub HideSheets()
    Dim ws As Worksheet
    For Each ws In Sheets(Array("X"))
         ws.Visible = xlSheetVeryHidden
    Next ws
End Sub
   
Sub UnHideSheets()
Dim ws As Worksheet
For Each ws In Worksheets: ws.Visible = xlSheetVisible

Next ws
End Sub





	
	
	
	
	
	



	
	

		

	

 

[RAJESH1960]

Sorry, I want to hide the shetts X, Y and Z and not as mentioned above

 

[Logit]

Try:

Sub HideSheets()
Dim oneIndex As Variant
'Hide sheets

Application.ScreenUpdating = False

For Each oneIndex In Array("X", "Y", "Z")
    Sheets(oneIndex).Visible = xlSheetHidden
Next oneIndex

Application.ScreenUpdating = True

End Sub

 

[RAJESH1960]

Try:

Sub HideSheets()
Dim oneIndex As Variant
'Hide sheets

Application.ScreenUpdating = False

For Each oneIndex In Array("X", "Y", "Z")
    Sheets(oneIndex).Visible = xlSheetHidden
Next oneIndex

Application.ScreenUpdating = True

End Sub

Thank you Logit.?

 

[Logit]

You are welcome.