With ActiveWorkbook.Worksheets(shContent)

Private Sub Worksheet_Activate()
Dim iSht As Worksheet
On Error Resume Next
For Each iSht In ThisWorkbook.Worksheets ' скрываем все листы кроме ActiveSheet
iSht.Visible = iSht.Name = ActiveSheet.Name
Next
End Sub

Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
Dim sHypAddr$, sParent$, iSht As Worksheet
On Error Resume Next
Application.ScreenUpdating = False: Application.EnableEvents = False
sHypAddr = Target.SubAddress
sParent = Replace$(Mid$(sHypAddr, 1, InStr(sHypAddr, "!") - 1), "'", "")
For Each iSht In ThisWorkbook.Worksheets
iSht.Visible = IIf(Target.TextToDisplay = "Все листы", True, (iSht.Name = sParent) Or (iSht.Name = Target.Range.Parent.Name))
Next
Target.Follow
Application.EnableEvents = True: Application.ScreenUpdating = True
End Sub

Application.EnableEvents = False … Application.EnableEvents = True

If iSht Is Nothing Then
       ActiveWorkbook.Worksheets.Add
       ActiveSheet.Name = shContent
       Call Create_shContent(shContent)
End If

Set oSh = ActiveWorkbook.VBProject.VBComponents(sCodeName)
     Debug.Print "CountOfLines = " & oSh.CodeModule.CountOfLines
     lCountOfLines = oSh.CodeModule.CountOfLines
     oSh.CodeModule.DeleteLines 1, lCountOfLines
     Debug.Print "CountOfLines = " & oSh.CodeModule.CountOfLines

oSh.CodeModule.InsertLines 1, sCode

Dim VBProj As VBIDE.VBProject
     Dim VBComp As VBIDE.VBComponent
     Dim CodeMod As VBIDE.CodeModule
     Dim sCodeName$, lFirstProcLine&
     sCodeName = ActiveSheet.CodeName
     Set VBProj = Application.ActiveWorkbook.VBProject
     Set VBComp = VBProj.VBComponents(sCodeName)
     Set CodeMod = VBComp.CodeModule
     lFirstProcLine = CodeMod.CountOfDeclarationLines + 1
     CodeMod.InsertLines lFirstProcLine, sCode