Hi everyone, I'm trying to make a form with two listbox and fill the
with all sheets in a workbook (visible and hidden). See below the cod
in form_activate line:


Code
-------------------

Dim x As Integer
Dim vhojactiva As String

Application.ScreenUpdating = False
vhojactiva = ActiveSheet.Name

For x = 1 To Sheets.Count
Sheets(Array(x)).Select
If ActiveSheet.Visible = -1 Then
lstvisible.AddItem (ActiveSheet.Name)
Else
lsthidden.AddItem (ActiveSheet.Name)
End If
Next x
Sheets(vhojactiva).Select
Application.ScreenUpdating = True

-------------------


...the problem is when I try to select a hidden sheet. How can I do ?
Any idea is welcome.

Thanks and Regards
Daniel

--
dbarell
-----------------------------------------------------------------------
dbarelli's Profile: http://www.excelforum.com/member.php...fo&userid=3127
View this thread: http://www.excelforum.com/showthread.php?threadid=56701