Excel VBA Макросы. Как перейти на скрытый лист?

[Посетитель]

В файле есть скрытый лист "Справочник".
Нужно, чтобы при щелчке по кнопке этот лист становился видимым и отображался на мониторе.

[Администратор]

Sub Макрос()
    Worksheets("Справочник").Visible = True
    Worksheets("Справочник").Select
End Sub

[Посетитель]

спасибо