Lỗi Run-time error '9'

[mrcoding]

Em có đoạn code sau. dùng để chèn code tự động vào các worksheet trong excel. nhưng không biết lúc thì báo lỗi Run-time error '9' lúc lại chạy. bác nào rành chỉ em với. Nó báo lỗi tại dòng "With MYWB.VBProject.VBComponents(myWS1.CodeName).CodeModule"

Code: [Select all] [Expand/Collapse]

1.     Dim MYWB As New Workbook
2.         Set MYWB = Workbooks(ThisWorkbook.Name)
3.       With MYWB.VBProject.VBComponents(myWS1.CodeName).CodeModule
4.             N = .CountOfLines
5.             .InsertLines N + 1, vbTab & "Option Explicit"
6.             .InsertLines N + 2, vbNewLine
7.             .InsertLines N + 3, "Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)"
8.             .InsertLines N + 4, vbTab & "Dim mWB as Workbook"
9.             .InsertLines N + 5, vbTab & "Dim mWS as Worksheet"
10.             .InsertLines N + 6, vbNewLine
11.             .InsertLines N + 7, vbTab & "Set mWB = Workbooks(ThisWorkbook.Name)"
12.            
13.             .InsertLines N + 8, vbTab & "Set mWS = mWB.Worksheets(" & """" & "Bao cao dieu chuyen CNKT" & """" & ")"
14.  
15.             .InsertLines N + 9, vbNewLine
16.             .InsertLines N + 10, "End Sub"
17.             .InsertLines N + 11, vbNewLine
18.            
19.  
20.       End With

GeSHi © Codebox Plus Extension