[COLOR=darkblue]Option[/COLOR] [COLOR=darkblue]Explicit
[/COLOR]
[COLOR=darkblue]Sub[/COLOR] ImportCode()
[COLOR=darkblue]Dim[/COLOR] wkbSource [COLOR=darkblue]As[/COLOR] Workbook
[COLOR=darkblue]Dim[/COLOR] wkbDest [COLOR=darkblue]As[/COLOR] Workbook
[COLOR=darkblue]Dim[/COLOR] VBP [COLOR=darkblue]As[/COLOR] [COLOR=darkblue]Object[/COLOR]
[COLOR=darkblue]Dim[/COLOR] vbcSource [COLOR=darkblue]As[/COLOR] [COLOR=darkblue]Object[/COLOR]
[COLOR=darkblue]Dim[/COLOR] vbcDest [COLOR=darkblue]As[/COLOR] [COLOR=darkblue]Object[/COLOR]
[COLOR=darkblue]Dim[/COLOR] strCode [COLOR=darkblue]As[/COLOR] [COLOR=darkblue]String[/COLOR]
[COLOR=darkblue]Dim[/COLOR] StartLine [COLOR=darkblue]As[/COLOR] [COLOR=darkblue]Long[/COLOR]
[COLOR=darkblue]Dim[/COLOR] NextLine [COLOR=darkblue]As[/COLOR] [COLOR=darkblue]Long[/COLOR]
[COLOR=darkblue]Dim[/COLOR] bCopied [COLOR=darkblue]As[/COLOR] [COLOR=darkblue]Boolean[/COLOR]
[COLOR=darkblue]On[/COLOR] [COLOR=darkblue]Error[/COLOR] [COLOR=darkblue]Resume[/COLOR] [COLOR=darkblue]Next[/COLOR]
[COLOR=darkblue]Set[/COLOR] VBP = ActiveWorkbook.VBProject
[COLOR=darkblue]On[/COLOR] [COLOR=darkblue]Error[/COLOR] [COLOR=darkblue]GoTo[/COLOR] 0
[COLOR=darkblue]If[/COLOR] VBP [COLOR=darkblue]Is[/COLOR] [COLOR=darkblue]Nothing[/COLOR] [COLOR=darkblue]Then[/COLOR]
MsgBox "Your security settings do not allow this macro to run."
[COLOR=darkblue]Exit[/COLOR] [COLOR=darkblue]Sub[/COLOR]
[COLOR=darkblue]End[/COLOR] [COLOR=darkblue]If[/COLOR]
[COLOR=darkblue]Set[/COLOR] wkbSource = Workbooks("Book1.xlsm")
[COLOR=darkblue]Set[/COLOR] wkbDest = Workbooks("Book2 v2.xlsm")
[COLOR=darkblue]Set[/COLOR] vbcSource = wkbSource.VBProject.VBComponents("Module1")
[COLOR=darkblue]Set[/COLOR] vbcDest = wkbDest.VBProject.VBComponents("ThisWorkbook")
bCopied = [COLOR=darkblue]False[/COLOR]
[COLOR=darkblue]With[/COLOR] vbcDest.CodeModule
[COLOR=darkblue]If[/COLOR] .CountOfLines = 0 [COLOR=darkblue]Then[/COLOR]
[COLOR=darkblue]With[/COLOR] vbcSource.CodeModule
StartLine = 2
strCode = .Lines(StartLine, 10)
[COLOR=darkblue]End[/COLOR] [COLOR=darkblue]With[/COLOR]
NextLine = .CreateEventProc("Open", "Workbook")
NextLine = NextLine + 1
.InsertLines NextLine, strCode
bCopied = [COLOR=darkblue]True[/COLOR]
[COLOR=darkblue]End[/COLOR] [COLOR=darkblue]If[/COLOR]
[COLOR=darkblue]End[/COLOR] [COLOR=darkblue]With[/COLOR]
[COLOR=darkblue]If[/COLOR] bCopied [COLOR=darkblue]Then[/COLOR]
MsgBox "Completed...", vbExclamation
[COLOR=darkblue]Else[/COLOR]
MsgBox "Code already exists!", vbExclamation
[COLOR=darkblue]End[/COLOR] [COLOR=darkblue]If[/COLOR]
[COLOR=darkblue]Set[/COLOR] wkbSource = [COLOR=darkblue]Nothing[/COLOR]
[COLOR=darkblue]Set[/COLOR] wkbDest = [COLOR=darkblue]Nothing[/COLOR]
[COLOR=darkblue]Set[/COLOR] VBP = [COLOR=darkblue]Nothing[/COLOR]
[COLOR=darkblue]Set[/COLOR] vbcSource = [COLOR=darkblue]Nothing[/COLOR]
[COLOR=darkblue]Set[/COLOR] vbcDest = [COLOR=darkblue]Nothing[/COLOR]
[COLOR=darkblue]End[/COLOR] [COLOR=darkblue]Sub[/COLOR]