Gebruik xl VeryHidden

[JurgenBrugman]

Dag forumleden,

Ik wil graag in een Excel bestand het actieve werkblad afsluiten en verbergen met xlVeryhidden en schakelen naar werkblad "Rooster 2013 2014".
Gebruik hiervoor onderstaande macro. Deze krijgt dus een foutmelding op de regel met XLVeryHidden.
Ik zie alleen niet wat ik fout doe, wie kan mij op weg helpen.
Deze macro moet dus op verschillende werkbladen werken.

Bij voorbaat dank,

Jurgen

Sub Naar_Rooster()
'
' Naar_Rooster Macro
'

'
    Sheets("Rooster 2013 2014").Visible = True
    ActiveSheet.Protect
    ActiveWindow.SelectedSheets.Visible = xlVeryHidden
    Sheets("Rooster 2013 2014").Select
End Sub

 

[JurgenBrugman]

Edit:

Inmiddels gevonden.

Code moet zijn:

Sub Naar_Rooster()
'
' Naar_Rooster Macro
'

'
    Sheets("Rooster 2013 2014").Visible = True
    ActiveSheet.Protect
    ActiveSheet.Visible = xlVeryHidden
    Sheets("Rooster 2013 2014").Select
End Sub

 

[Warme bakkertje]

Of

Sub Naar_Rooster()

    With ActiveSheet
        .Protect
        .Visible = 2
    End With
    With Sheets("Rooster 2013 2014")
        .Visible = 1
        Application.Goto .Range("A1")
    End With
    
End Sub