To copy printing area of one worksheet to worksheet in a different workbook

[sneha1889]

I have a macro that copies the values from one workbook to another. it copies all the formats and pastes only the values ignoring any formulas. I tried integrating the following code to make the print area of the destination file same as my source woksheet but doesn't work. Could you tell me why? I am new to excel programming and unable to figure out much. I have to d it for one more page. So incase there a simpler way to do it kindly suggest.

Windows(GeneratorFile).Activate (Source)
Sheets("SMOE-FRONT").Range("A1:AX90").Select
ActiveSheet.PageSetup.PrintArea = "$A$1:$AX$90"
ActiveSheet.Range("A1:AX90").Copy
DestinationBook.Sheets("SMOE-FRONT").Activate(Destination)
Sheets("SMOE-FRONT").PageSetup.PrintArea = "$A$1:$AX$90"

[xladept]

Your post does not comply with Rule 3 of our Forum RULES. Use code tags around code.

Posting code between [CODE]Please [url=https://www.excelforum.com/login.php]Login or Register [/url] to view this content.[/CODE] tags makes your code much easier to read and copy for testing, it also maintains VBA formatting.

Highlight your code and click the # icon at the top of your post window. More information about these and other tags can be found here

But your posted code just copy-pastes to the same book the same range - although you need to only specify the first range in the destination!

[sneha1889]

Oh Ok. i will try giving only the first range. Thank you