Dim Module As String, VBC As VBIDE.VBComponent, Code As VBIDE.CodeModule, Pano As VBIDE.CodePane
'...
Set VBC = ThisWorkbook.VBProject.VBComponents(Module): Set Code = VBC.CodeModule: Set Pano = Code.CodePane
Pano.Show
VBC.DesignerWindow.Visible = True