Worksheet_FollowHyperlink VBA не может быть создан

Question

Я новичок VBA ie, и я пытаюсь повторить следующий код, чтобы помочь мне показать скрытый лист при нажатии на гиперссылку.

Код взят из https://www.computergaga.com/blog/how-to-hyperlink-to-a-hidden-worksheet-in-excel/

Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)

Dim ShtName As String

ShtName = Left(Target.SubAddress, InStr(1, Target.SubAddress, "!") - 1)

Sheets(ShtName).Visible = xlSheetVisible

Sheets(ShtName).Select


End Sub

Я следовал инструкциям, выбирая таблицу содержания с предварительно заполненными гиперссылками, просматривая код этой таблицы и выбирая Worksheet и FollowHyperlink. Однако Я не могу нажать на FollowHyperlink . Он генерировал сообщение об ошибке: Недопустимый тип модуля . Это мешает мне создать частный саб и использовать приведенный выше код.

Пожалуйста, помогите мне с ошибкой.

Большое спасибо.