Public Sub SheetsVisibleNotVisible()

Dim Matrice_fogli As Variant

Dim DimensioneArray As Integer

Dim Indice As Integer

Matrice_fogli = Array("Sheet1", "Sheet2", "Sheet3")

DimensioneArray = UBound(Matrice_fogli, 1)

For Indice = 0 To DimensioneArray Step 1

Sheets(Matrice_fogli(Indice)).Visible = Not Sheets(Matrice_fogli(Indice)).Visible