Vis arkfaner

Skal de også skjules igen, med en knap?

Hvis du skriver arknavnene i H2 og nedefter og "Åbn" eller "Luk" i I2 og nedefter kan denne lille makro klare opgaven:

Sub ÅbnSag()
For x = 2 To 4
If Cells(x, 9) = "Åbn" Then
Worksheets(Cells(x, 8).Value).Visible = True
Else
  Worksheets(Cells(x, 8).Value).Visible = False
End If
Next
End Sub