Move data from Doc1 to Doc2, end with 2nd doc open

M

Munchkin

Here's a quick synopsis of my macro - Macro is run from Doc1, which opens up
Doc2, then returns to Doc1 & does a series of coping & pasting into Doc2.

When the macro is done Doc2 should remain open for the user so they can see
the message box, but both documents are automatically minimized when the
macro is done. How do I keep Doc2 from minimizing?


Application.WindowState = xlMinimized
Windows("@Doc1.xls").Activate
Range("H2").Select
Selection.Copy

Windows("@Doc2.xls").Activate
Range("E1").Select
ActiveSheet.Paste

MsgBox ("The list was moved to Doc2. You need rename Doc2 when saving
and closing.")


End Sub
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

Need to make sure workbook is open before proceeding 1
Help needed! Extracting Heading 3 and Contents from a Word Doc to Excel 0
continious page nos while inserting pages from 2nd doc to 1st doc 0
Help with activating window from Application.GetOpenFilename 4
how to get Continuous page numbers while inserting file from one doc to another 1
Using a string variable to change a file name 3
Help making this macro dynamic :) 1
Copy from one source to multiple spreadsheets 1

Top