Consultation about button to show application

[GIS2013]

Hi. I have two (related) codes. The first makes sure that only the form would be visible upon opening (works well). And the other is kind of "emergency" button - to be pushed if the user needs to get into the database (which should usually be invisible). But something wrong with CommandButton4_Click.. It didn't upload the application, and I needed to use the immediate window to solve it.

Sub Workbook_Open()
UserFormPhoneBook.Show
Application.Visible = False
End Sub

Private Sub CommandButton4_Click()
Application.Visible = True
End Sub

[mehmetcik]

The second piece of code cannot upload an application.

It makes the existing application visible, which it must be otherwise you could not click on the button.

Maybe you should be making the worksheet visible.

    Sheets("Sheet2").Select
    ActiveWindow.SelectedSheets.Visible = False
    Sheets("Sheet1").Select
    Sheets("Sheet2").Visible = True

[GIS2013]

@mehmetcik,
It was obviously a rather minor mistake I've done, in the second piece it should be PUBLIC rather than Private sub. Otherwise as it happened to me the button couldn't work since it called private sub (from a module).
Thanks anyway