Hide and Show Sheets

Sub ShowSheets()
Dim ws As Worksheet
For Each ws In ThisWorkbook.Worksheets
ws.Visible = xlSheetVisible

or
Sheets(Rks(idx)).Visible = xlSheetVeryHidden
Next
End Sub