Hi all
I could say I'm twice a beginner, once on this forum and second in VBA procedures, so please forgive my possible errors. Thank you.
*****
I've created an workbook with 6 sheets
- the first is a 'form' for the same elemental imput data (ex: NUMBER); >unhide. It contains two cells: the first cell 'NUMBER' is used to rename a new created sheet; the second cell is used to find (and activate) the sheet with the name = NUMBER
- the second is the standard sheet that multiplies (creates a copy sheet) with the name = NUMBER; >hide
- the third is a sheet with lists; >hide
- the fourth, fifth and sixth sheets contain datas that are recovering when opening the file from other three Workbooks (Function: GetDataFromClosedWorkbook); >hide

When a new sheet is created or is activated (first sheet, list sheet ...), all other sheets are hiden.
*****
The problem is:
- when I try to activate a sheet, from the second cell in the first sheet, nothing happens. If the sheets (when I try to activate) are unhiden, everything is OK.

NOTE: after creating a sheet, the workbook is automatically save.

The written VBA procedure is:

Sub Button_2()
'Button Cauta fisa procedurii 'Search for the specified sheet
'Cauta fisa specificata 'Search for the specified sheet
Dim i As Variant
i = Range("E24")
If Not SheetExists(Range("E24")) Then
MsgBox "Acesta fisa nu exista !" 'This sheet doesn't exist
Else
Application.ScreenUpdating = False
ActiveWorkbook.Unprotect Password:="qqq"
Sheets(i).Visible = True
Sheets(i).Select
Sheets("INTRO").Visible = False
Range("D3").Select
Application.ScreenUpdating = False
ActiveWorkbook.Protect Password:="qqq"
Application.ScreenUpdating = True
End If
End Sub