Arbeitsblaetter verstecken

Sub von Hajo gefunden:

Sub Ausblenden()
Dim I As Integer
For I = Worksheets.Count To 1 Step -1
If Worksheets(I).Name  "Tabelle1" Then Worksheets(I).Visible = xlVeryHidden
Next I
End Sub
Sub Einblenden()
Dim I As Integer
For I = Worksheets.Count To 1 Step -1
Worksheets(I).Visible = True
Next I
End Sub

Klappt soweit super gut, jedoch hab ich eine Userform und moechte die in den Textboxen stehenden infos in die versteckten Blaetter eintragen. Ist das moeglich? Momentan zeigt er einen Fehler an.

Beste Gruesse Helge