Nombre de la solapa (sheets)

Op 1:

ActiveSheet.Visible = xlVeryHidden

Op 2:

Sub Test2()
Dim arrSheets As Variant, i As Long
arrSheets=Array("Hoja1","Hoja","Hoja3")
For i=0 To UBound(arrSheets)
Worksheets(arrSheets(i)).Visible = xlVeryHidden
Next i
End Sub

Op 3:

Sub Test3()
Dim i As Long
For i=1 To 3
Worksheets("Лист" & i).Visible = xlVeryHidden
Next i
End Sub

Op 4::

Sub Test4()
Dim ws As Worksheet
For Each ws In Worksheets
Select Case UCase(ws.Name)
Case "HOJA1","HOJA2","HOJA3"
ws.Visible = xlVeryHidden
End Select
Next ws
End Sub

ETC., ETC.


Saludos,
KL


"AgerGaston" wrote in message news:

Hola a todos.
Necesito saber el nombre de la solapa (sheets) en la cual estoy parado, para
luego ocultarla.

Ahora estoy haciendo lo siguiente:
Sheets("ventas01").Visible = xlVeryHidden

Esa solapa ("ventas01"), cambia ya que el Excel tiene unas 10 o mas. Se
puede crear una variable que cambie cada vez que cambie el sheets ??

Gracias y saludos