typo, that should be:

Sub CopyMod()
Dim Fname As String
With Workbooks("VBA Code Examples.xls")
Fname = .Path & "\code.txt"
.VBProject.VBComponents("Module2").Export Fname
End With
Application.Run "imprt", Fname
End Sub

Function imprt(ByVal strfile As String)
Workbooks("book2.xls").VBProject.VBComponents.Impo rt strfile
End Function


"Tim Zych" wrote in message
...
Try this workaround:

Sub CopyMod()
Dim Fname As String
With With Workbooks("VBA Code Examples.xls")
Fname = .Path & "\code.txt"
.VBProject.VBComponents("Module2").Export Fname
End With
Application.Run "imprt", Fname
End Sub

Function imprt(ByVal strfile As String)
Workbooks("book2.xls").VBProject.VBComponents.Impo rt strfile
End Function


"Todd Huttenstine" wrote in message
...
Hey guys,

I am using the following code:
The code simply exports the VBA code and module name of a
specified module to a text file called code.txt and then
saves it in the directory of the source workbook. It then
imports that code and module name into another specified
workbook.

Dim FName As String
With Workbooks("VBA Code Examples.xls")
FName = .Path & "\code.txt"
.VBProject.VBComponents("Module2").Export FName
End With
Workbooks("book2").VBProject.VBComponents.Import FName

Nortan Anti virus is detecting this as the
Bloodhound.ExcelMacro virus and will not allow me to save
the file. How do I work around this?

Thanx

Todd Huttenstine