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

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

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