On Dec 17, 1:20*pm, Luke M wrote:
After your Dim callouts, you could try adding
application.screenupdating=false
and
application.screenupdating=true
at the end.

Other idea is to include
Workbook("G:\New Items\Forms\Proposal Sheet.xls").activate
at the end
--
Best Regards,

Luke M
*Remember to click "yes" if this post helped you!*



"jlclyde" wrote:
When this macro runs it leaves the screen on the VBA window on the
code that was moved. *How do you activate the sheet?

Thanks,
Jay

Sub ExportCodeMod()
* *Dim strCode As String
* *Dim vbCom As VBComponent
* *Dim modObj As Object

*' Set object to the module you want to export.
* *Set modObj = _
Application.VBE.ActiveVBProject.VBComponents.Item( "modTest")
*' Place code in a string.
strCode = modObj.CodeModule.Lines(1, modObj.CodeModule.CountOfLines)
*' Open workbook.
Workbooks.Open Filename:="G:\New Items\Forms\Proposal Sheet.xls",
ReadOnly:=True
*' Create a new module in workbook.
Application.VBE.ActiveVBProject.VBComponents.Add (vbext_ct_StdModule)
*' Add code to new module from string variable.
Application.VBE.ActiveVBProject.VBComponents.Item( "Module1") _
* * .CodeModule.AddFromString (strCode)

End Sub- Hide quoted text -

- Show quoted text -

Neither of those work.
Jay