Closing Open Workbook Without Saving

With lots of historic help from members of this site, I have created the following code to copy/paste a range of data from one workbook to another.

Please Login or Register  to view this content.

It seems to be working except for two problems;

1. Although I have said SaveChanges:=False, it seems to be trying to save the origin workbook and I get a message to say that it can't be saved due to being read only.

2. I am not experienced enough to be able to vary the number of rows based upon the actual count of rows which contain something in column B.

Would someone be able to help me please? Problem no.1 is the most important.

Thank you,

Jess

Hi, thank you very much for your reply. The code for the second problem works just brilliantly.

Yes, wb1 has a macro which runs on opening - is this the problem and is there a solution to it without removing the other macro?

Kind regards

Does the other macro have a variable called wb1?
If so change the name of the variable in one of the codes.

Also do you need the other macro to run when opening it with this code?

The other macro doesn't have a variable called wb1.
No, it is not necessary to run the other macro when opening it with this code.

Thank you for your quick reply.

In that case try

Please Login or Register  to view this content.

Thank you for your suggested changes. The macro progresses to the point of correctly pasting the data but stills fails in the closing steps. I do, however, notice a difference in that the other macro is not running automatically now but the workbook remains open. Just in case, I have misunderstood, here is the current code;

Please Login or Register  to view this content.

Not sure why it still wants to save Wb1, but try

Please Login or Register  to view this content.

Beaten 2it

It works perfectly except it won't close the origin workbook. It is not trying to save it now so at least that is ok.

Here's the code;

Please Login or Register  to view this content.

If you add this msgbox, what does it say?

Please Login or Register  to view this content.

Adding that line makes no difference, it fails with a code 400 and I don't get a message.

Did it fail with that code before adding the msgbox?

Yes, it has always failed with code 400 at the last stage

It would have helped if you had mentioned that earlier

Try stepping through the code using F8, what happens?

hi, thank you for sending additional questions to help me. i have now left work for the day and will have to resume tomorrow as i have no access to company systems outside work hours. again, thank you for helping and i hope i can find someone as helpful tomorrow. best wishes, jess

Stepping through it and using test messages at various stages, the problem is with the range select line;

Please Login or Register  to view this content.

If I remove this line all is good, runs perfectly without errors.

Placement of the cursor isn't essential and therefore I can keep it deleted but if anyone can see the problem it would help avoid it in the future.

Thank you once again, Jess

Is the active sheet protected?
What error message did you get?

Hi, the active worksheet is not protected and the error message with the line included is 400

No, how would I do that?

Is it;

Please Login or Register  to view this content.

This gives error 400 again. The code does everything until it hits this line

Yes, wb2 is active and KPI is the active sheet.

Tried .Select instead but same error 400.

It's a little frustrating but I can just delete the line and it works fine.

Sorry, I meant - tried .Activate but get the same error message

If you add this msgbox, what does it say

Please Login or Register  to view this content.