| Home |
| Search |
| Today's Posts |
|
#3
Posted to microsoft.public.excel.misc
|
|||
|
|||
Activate Sheet After Move Macro
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 |
| Thread Tools | Search this Thread |
| Display Modes | |
|
|
Similar Threads
|
||||
| Thread | Forum | |||
| Find account, move them to different sheet MACRO | Excel Discussion (Misc queries) | |||
| Move Column within Sheet with VB Macro | Excel Discussion (Misc queries) | |||
| Macro to move data from one sheet to another | Excel Discussion (Misc queries) | |||
| how do i write a macro to move down in the sheet one line ? | New Users to Excel | |||
| how would activate the previous sheet in macro | Excel Discussion (Misc queries) | |||
Threaded Mode
